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 |
|
|