andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove some XEmacs compat code from ediff-wind.el

Browse source 
* lisp/vc/ediff-wind.el (ediff-window)
(ediff-compute-toolbar-width): Remove some XEmacs compat code.
This commit is contained in:
Stefan Kangas 2020-11-20 16:19:14 +01:00
parent 430eb2f850
commit c1269e7114
1 changed files with 4 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/vc/ediff-wind.el
View file

@ -42,13 +42,6 @@
(require 'ediff-help)
;; end pacifier
;; be careful with ediff-tbar
(eval-and-compile
(if (featurep 'xemacs)
(require 'ediff-tbar)
(defun ediff-compute-toolbar-width () 0)))
(defgroup ediff-window nil
"Ediff window manipulation."
:prefix "ediff-"
@ -961,8 +954,7 @@ create a new splittable frame if none is found."
;; 1 more line for the mode line
(setq lines (1+ (count-lines (point-min) (point-max)))
fheight lines
fwidth (max (+ (ediff-help-message-line-length) 2)
(ediff-compute-toolbar-width))
fwidth (max (+ (ediff-help-message-line-length) 2) 0)
adjusted-parameters
(list
;; possibly change surrogate minibuffer
@ -1291,6 +1283,9 @@ It assumes that it is called from within the control buffer."
(ediff-multiframe-setup-p)
ediff-wide-display-p)))))))
(defun ediff-compute-toolbar-width ()
(declare (obsolete nil "28.1"))
0)
(provide 'ediff-wind)
;;; ediff-wind.el ends here