mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Remove XEmacs support from ido.el

Browse source 
* lisp/ido.el (ido-active, ido-completion-help)
(ido-minibuffer-setup): Remove XEmacs support.
This commit is contained in:
Lars Ingebrigtsen 2019-06-12 23:38:55 +02:00
parent 2034bfdf63
commit 2c139c9a09
1 changed files with 3 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/ido.el
View file

@ -1259,8 +1259,7 @@ Only used if `ido-use-virtual-buffers' is non-nil.")
(if merge
ido-use-merged-list
(and (boundp 'ido-completing-read)
(or (featurep 'xemacs)
(= ido-use-mycompletion-depth (minibuffer-depth))))))
(= ido-use-mycompletion-depth (minibuffer-depth)))))
(defvar ido-trace-enable nil)
@ -4035,17 +4034,8 @@ If `ido-change-word-sub' cannot be found in WORD, return nil."
(t
(copy-sequence (or ido-matches ido-cur-list))))
#'ido-file-lessp)))
(if (featurep 'xemacs)
;; XEmacs extents are put on by default, doesn't seem to be
;; any way of switching them off.
(display-completion-list
completion-list
:help-string "ido "
:activate-callback
(lambda (&rest _) (message "Doesn't work yet, sorry!")))
;; else running Emacs
;;(add-hook 'completion-setup-hook 'completion-setup-function)
(display-completion-list completion-list)))))))
;;(add-hook 'completion-setup-hook 'completion-setup-function)
(display-completion-list completion-list))))))
;;; KILL CURRENT BUFFER
(defun ido-kill-buffer-at-head ()
@ -4818,9 +4808,6 @@ Modified from `icomplete-completions'."
(when (ido-active)
(add-hook 'pre-command-hook 'ido-tidy nil t)
(add-hook 'post-command-hook 'ido-exhibit nil t)
(when (featurep 'xemacs)
(ido-exhibit)
(goto-char (point-min)))
(run-hooks 'ido-minibuffer-setup-hook)
(when ido-initial-position
(goto-char (+ (minibuffer-prompt-end) ido-initial-position))