/[emacs]/emacs/lisp/ido.el
ViewVC logotype

Diff of /emacs/lisp/ido.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.52 by kfstorm, Sun Apr 24 19:09:13 2005 UTC revision 1.53 by kfstorm, Thu Apr 28 15:09:34 2005 UTC
# Line 1347  This function also adds a hook to the mi Line 1347  This function also adds a hook to the mi
1347                             (> (prefix-numeric-value arg) 0)                             (> (prefix-numeric-value arg) 0)
1348                           (not ido-everywhere)))                           (not ido-everywhere)))
1349    (when (get 'ido-everywhere 'file)    (when (get 'ido-everywhere 'file)
1350      (setq read-file-name-function (get 'ido-everywhere 'file))      (setq read-file-name-function (car (get 'ido-everywhere 'file)))
1351      (put 'ido-everywhere 'file nil))      (put 'ido-everywhere 'file nil))
1352    (when (get 'ido-everywhere 'buffer)    (when (get 'ido-everywhere 'buffer)
1353      (setq read-buffer-function (get 'ido-everywhere 'buffer))      (setq read-buffer-function (car (get 'ido-everywhere 'buffer)))
1354      (put 'ido-everywhere 'buffer nil))      (put 'ido-everywhere 'buffer nil))
1355    (when ido-everywhere    (when ido-everywhere
1356      (when (memq ido-mode '(both file))      (when (memq ido-mode '(both file))
1357        (unless (get 'ido-everywhere 'file)        (put 'ido-everywhere 'file (cons read-file-name-function nil))
         (put 'ido-everywhere 'file read-file-name-function))  
1358        (setq read-file-name-function 'ido-read-file-name))        (setq read-file-name-function 'ido-read-file-name))
1359      (when (memq ido-mode '(both buffer))      (when (memq ido-mode '(both buffer))
1360        (unless (get 'ido-everywhere 'buffer)        (put 'ido-everywhere 'buffer (cons read-buffer-function nil))
         (put 'ido-everywhere 'buffer read-buffer-function))  
1361        (setq read-buffer-function 'ido-read-buffer))))        (setq read-buffer-function 'ido-read-buffer))))
1362    
1363    

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26