Commit 2c139c9a authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Remove XEmacs support from ido.el

* lisp/ido.el (ido-active, ido-completion-help)
(ido-minibuffer-setup): Remove XEmacs support.
parent 2034bfdf
Pipeline #2014 failed with stage
in 3 seconds
......@@ -1259,8 +1259,7 @@ Only used if `ido-use-virtual-buffers' is non-nil.")
(if merge
(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."
(copy-sequence (or ido-matches ido-cur-list))))
(if (featurep 'xemacs)
;; XEmacs extents are put on by default, doesn't seem to be
;; any way of switching them off.
:help-string "ido "
(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))))))
(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)
(goto-char (point-min)))
(run-hooks 'ido-minibuffer-setup-hook)
(when ido-initial-position
(goto-char (+ (minibuffer-prompt-end) ido-initial-position))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment