mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(ido-everywhere): Fix last change.

Browse source
This commit is contained in:
Kim F. Storm 2005-04-28 15:09:34 +00:00
parent b7ce417320
commit d6810a2d5d
1 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/ido.el
View file

@ -1347,19 +1347,17 @@ This function also adds a hook to the minibuffer."
(> (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))))