Mercurial > emacs

changeset 75381:3e93f595966f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ido-active): Add xemacs test from ido-minibuffer-setup. (ido-initiate-auto-merge, ido-exhibit, ido-minibuffer-setup) (ido-tidy): Use ido-active.
author Kim F. Storm <storm@cua.dk>
date Mon, 22 Jan 2007 22:37:25 +0000
parents 72942ec3e5e4
children 509f6ba78c65
files lisp/ido.el
diffstat 1 files changed, 7 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ido.el	Mon Jan 22 22:37:15 2007 +0000
+++ b/lisp/ido.el	Mon Jan 22 22:37:25 2007 +0000
@@ -1119,7 +1119,9 @@
 (defun ido-active (&optional merge)
   (if merge
       ido-use-merged-list
-    (and (boundp 'ido-completing-read) (= ido-use-mycompletion-depth (minibuffer-depth)))))
+    (and (boundp 'ido-completing-read)
+	 (or (featurep 'xemacs)
+	     (= ido-use-mycompletion-depth (minibuffer-depth))))))
 
 (defvar ido-trace-enable nil)
 
@@ -4121,7 +4123,7 @@
   (ido-trace "\n*merge timeout*" buffer)
   (setq ido-auto-merge-timer nil)
   (when (and (buffer-live-p buffer)
-	     (= ido-use-mycompletion-depth (minibuffer-depth))
+	     (ido-active)
 	     (boundp 'ido-eoinput) ido-eoinput)
     (let ((contents (buffer-substring-no-properties (minibuffer-prompt-end) ido-eoinput)))
       (ido-trace "request merge")
@@ -4141,7 +4143,7 @@
   ;; 1. It prints a default file name when there is no text yet entered.
   ;; 2. It calls my completion routine rather than the standard completion.
 
-  (when (= ido-use-mycompletion-depth (minibuffer-depth))
+  (when (ido-active)
     (let ((contents (buffer-substring-no-properties (minibuffer-prompt-end) (point-max)))
 	  (buffer-undo-list t)
 	  try-single-dir-match
@@ -4444,9 +4446,7 @@
 (defun ido-minibuffer-setup ()
   "Minibuffer setup hook for `ido'."
   ;; Copied from `icomplete-minibuffer-setup-hook'.
-  (when (and (boundp 'ido-completing-read)
-	     (or (featurep 'xemacs)
-		 (= ido-use-mycompletion-depth (minibuffer-depth))))
+  (when (ido-active)
     (add-hook 'pre-command-hook 'ido-tidy nil t)
     (add-hook 'post-command-hook 'ido-exhibit nil t)
     (setq cua-inhibit-cua-keys t)
@@ -4465,8 +4465,7 @@
     (cancel-timer ido-auto-merge-timer)
     (setq ido-auto-merge-timer nil))
 
-  (if (and (boundp 'ido-use-mycompletion-depth)
-	   (= ido-use-mycompletion-depth (minibuffer-depth)))
+  (if (ido-active)
       (if (and (boundp 'ido-eoinput)
 	       ido-eoinput)