From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 12 Jun 2019 21:38:55 +0000 (+0200)
Subject: Remove XEmacs support from ido.el
X-Git-Tag: emacs-27.0.90~2597
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2c139c9a094919c98098c0c82e32720cb9d026bf;p=emacs.git

Remove XEmacs support from ido.el

* lisp/ido.el (ido-active, ido-completion-help)
(ido-minibuffer-setup): Remove XEmacs support.
---

diff --git a/lisp/ido.el b/lisp/ido.el
index 1a3a384ae6b..bf2c74558ac 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -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))