# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1114700974 0
# Node ID cdaec25dce2c9fb5c0d4664ce2726957cd3c40a0
# Parent  6df2c13fa79770f956586c10c9d9cca2f819a589
(ido-everywhere): Fix last change.

diff -r 6df2c13fa797 -r cdaec25dce2c lisp/ido.el
--- 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))))