diff options
| author | Leo Liu <sdl.web@gmail.com> | 2015-12-25 19:10:13 +0800 |
|---|---|---|
| committer | Leo Liu <sdl.web@gmail.com> | 2015-12-25 19:10:13 +0800 |
| commit | b2b84b166a7ac454850ab4832ef40a41dce74cf7 (patch) | |
| tree | 436c4006235b2f94257ab63af3751194ec7a1eeb /lisp | |
| parent | 3e7f6338d8c32bf4676ee4af036459b25efc3d9b (diff) | |
| download | emacs-b2b84b166a7ac454850ab4832ef40a41dce74cf7.tar.gz emacs-b2b84b166a7ac454850ab4832ef40a41dce74cf7.tar.bz2 emacs-b2b84b166a7ac454850ab4832ef40a41dce74cf7.zip | |
* ido.el (ido-add-virtual-buffers-to-list): Use bookmark-get-filename.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ido.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/ido.el b/lisp/ido.el index 1415b27a3a7..e2a916534eb 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -3491,14 +3491,12 @@ This is to make them appear as if they were \"virtual buffers\"." ;; the file which the user might thought was still open. (unless recentf-mode (recentf-mode 1)) (setq ido-virtual-buffers nil) - (let ((bookmarks (and (boundp 'bookmark-alist) - bookmark-alist)) - name) + (let (name) (dolist (head (append recentf-list - (delq nil (mapcar (lambda (bookmark) - (cdr (assoc 'filename bookmark))) - bookmarks)))) + (and (fboundp 'bookmark-get-filename) + (delq nil (mapcar #'bookmark-get-filename + (bound-and-true-p bookmark-alist)))))) (setq name (file-name-nondirectory head)) ;; In case HEAD is a directory with trailing /. See bug#14552. (when (equal name "") |