* ido.el (ido-add-virtual-buffers-to-list): Robustify. (Bug#14552)
This commit is contained in:
parent
cf7a0de6e7
commit
c28b9050d5
2 changed files with 9 additions and 2 deletions
|
@ -3,6 +3,7 @@
|
|||
* ido.el (ido-read-directory-name): Handle fallback.
|
||||
(ido-read-file-name): Update DIR to ido-current-directory.
|
||||
(Bug#1516)
|
||||
(ido-add-virtual-buffers-to-list): Robustify. (Bug#14552)
|
||||
|
||||
2013-07-09 Dmitry Gutov <dgutov@yandex.ru>
|
||||
|
||||
|
|
10
lisp/ido.el
10
lisp/ido.el
|
@ -3461,8 +3461,14 @@ This is to make them appear as if they were \"virtual buffers\"."
|
|||
(setq ido-virtual-buffers nil)
|
||||
(let (name)
|
||||
(dolist (head recentf-list)
|
||||
(and (setq name (file-name-nondirectory head))
|
||||
(null (get-file-buffer head))
|
||||
(setq name (file-name-nondirectory head))
|
||||
;; In case HEAD is a directory with trailing /. See bug#14552.
|
||||
(when (equal name "")
|
||||
(setq name (file-name-nondirectory (directory-file-name head))))
|
||||
(when (equal name "")
|
||||
(setq name head))
|
||||
(and (not (equal name ""))
|
||||
(null (get-file-buffer head))
|
||||
(not (assoc name ido-virtual-buffers))
|
||||
(not (member name ido-temp-list))
|
||||
(not (ido-ignore-item-p name ido-ignore-buffers))
|
||||
|
|
Loading…
Add table
Reference in a new issue