diff options
Diffstat (limited to 'lisp/ido.el')
| -rw-r--r-- | lisp/ido.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lisp/ido.el b/lisp/ido.el index e834916a6da..c83b700e656 100644 --- a/lisp/ido.el +++ b/lisp/ido.el | |||
| @@ -1523,8 +1523,10 @@ Removes badly formatted data and ignored directories." | |||
| 1523 | (remove-function read-file-name-function #'ido-read-file-name) | 1523 | (remove-function read-file-name-function #'ido-read-file-name) |
| 1524 | (remove-function read-buffer-function #'ido-read-buffer) | 1524 | (remove-function read-buffer-function #'ido-read-buffer) |
| 1525 | (when ido-everywhere | 1525 | (when ido-everywhere |
| 1526 | (add-function :override read-file-name-function #'ido-read-file-name) | 1526 | (if (not ido-mode) |
| 1527 | (add-function :override read-buffer-function #'ido-read-buffer))) | 1527 | (ido-mode 'both) |
| 1528 | (add-function :override read-file-name-function #'ido-read-file-name) | ||
| 1529 | (add-function :override read-buffer-function #'ido-read-buffer)))) | ||
| 1528 | 1530 | ||
| 1529 | (defvar ido-minor-mode-map-entry nil) | 1531 | (defvar ido-minor-mode-map-entry nil) |
| 1530 | 1532 | ||
| @@ -2216,7 +2218,10 @@ If cursor is not at the end of the user input, move to end of input." | |||
| 2216 | ((and ido-enable-virtual-buffers | 2218 | ((and ido-enable-virtual-buffers |
| 2217 | ido-virtual-buffers | 2219 | ido-virtual-buffers |
| 2218 | (setq filename (assoc buf ido-virtual-buffers))) | 2220 | (setq filename (assoc buf ido-virtual-buffers))) |
| 2219 | (ido-visit-buffer (find-file-noselect (cdr filename)) method t)) | 2221 | (if (eq method 'kill) |
| 2222 | (setq recentf-list | ||
| 2223 | (delete (cdr filename) recentf-list)) | ||
| 2224 | (ido-visit-buffer (find-file-noselect (cdr filename)) method t))) | ||
| 2220 | 2225 | ||
| 2221 | ((and (eq ido-create-new-buffer 'prompt) | 2226 | ((and (eq ido-create-new-buffer 'prompt) |
| 2222 | (null require-match) | 2227 | (null require-match) |
| @@ -4073,6 +4078,7 @@ Record command in `command-history' if optional RECORD is non-nil." | |||
| 4073 | (setq buffer (buffer-name buffer))) | 4078 | (setq buffer (buffer-name buffer))) |
| 4074 | (let (win newframe) | 4079 | (let (win newframe) |
| 4075 | (cond | 4080 | (cond |
| 4081 | ;; "Killing" of virtual buffers is handled in `ido-buffer-internal'. | ||
| 4076 | ((eq method 'kill) | 4082 | ((eq method 'kill) |
| 4077 | (if record | 4083 | (if record |
| 4078 | (ido-record-command 'kill-buffer buffer)) | 4084 | (ido-record-command 'kill-buffer buffer)) |