Mercurial > emacs

changeset 61919:cdaec25dce2c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ido-everywhere): Fix last change.
author Kim F. Storm <storm@cua.dk>
date Thu, 28 Apr 2005 15:09:34 +0000
parents 6df2c13fa797
children 290ff04b090e
files lisp/ido.el
diffstat 1 files changed, 4 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ido.el	Thu Apr 28 15:09:22 2005 +0000
+++ b/lisp/ido.el	Thu Apr 28 15:09:34 2005 +0000
@@ -1347,19 +1347,17 @@
 			   (> (prefix-numeric-value arg) 0)
 			 (not ido-everywhere)))
   (when (get 'ido-everywhere 'file)
-    (setq read-file-name-function (get 'ido-everywhere 'file))
+    (setq read-file-name-function (car (get 'ido-everywhere 'file)))
     (put 'ido-everywhere 'file nil))
   (when (get 'ido-everywhere 'buffer)
-    (setq read-buffer-function (get 'ido-everywhere 'buffer))
+    (setq read-buffer-function (car (get 'ido-everywhere 'buffer)))
     (put 'ido-everywhere 'buffer nil))
   (when ido-everywhere
     (when (memq ido-mode '(both file))
-      (unless (get 'ido-everywhere 'file)
-	(put 'ido-everywhere 'file read-file-name-function))
+      (put 'ido-everywhere 'file (cons read-file-name-function nil))
       (setq read-file-name-function 'ido-read-file-name))
     (when (memq ido-mode '(both buffer))
-      (unless (get 'ido-everywhere 'buffer)
-	(put 'ido-everywhere 'buffer read-buffer-function))
+      (put 'ido-everywhere 'buffer (cons read-buffer-function nil))
       (setq read-buffer-function 'ido-read-buffer))))