andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ido-everywhere): Save and restore old read-buffer-function

Browse source 
and read-file-name-function values.  Don't overwrite existing
non-nil values if ido-mode is enabled without ido-everywhere.
This commit is contained in:
Kim F. Storm 2005-04-24 19:09:13 +00:00
parent 456986fd3a
commit bb7216f7eb
1 changed files with 15 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lisp/ido.el
View file

@ -1346,12 +1346,21 @@ This function also adds a hook to the minibuffer."
(setq ido-everywhere (if arg
(> (prefix-numeric-value arg) 0)
(not ido-everywhere)))
(setq read-file-name-function
(and ido-everywhere (memq ido-mode '(both file))
'ido-read-file-name))
(setq read-buffer-function
(and ido-everywhere (memq ido-mode '(both buffer))
'ido-read-buffer)))
(when (get 'ido-everywhere 'file)
(setq read-file-name-function (get 'ido-everywhere 'file))
(put 'ido-everywhere 'file nil))
(when (get 'ido-everywhere 'buffer)
(setq read-buffer-function (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))
(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))
(setq read-buffer-function 'ido-read-buffer))))
;;; IDO KEYMAP