[Emacs-diffs] emacs-25 b2b84b1: * ido.el (ido-add-virtual-buffers-to-list): Use bookmark-get-filename.

[Leo Liu]

branch: emacs-25
commit b2b84b166a7ac454850ab4832ef40a41dce74cf7
Author: Leo Liu <address@hidden>
Commit: Leo Liu <address@hidden>

    * ido.el (ido-add-virtual-buffers-to-list): Use bookmark-get-filename.
---
 lisp/ido.el |   10 ++++------
 1 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/lisp/ido.el b/lisp/ido.el
index 1415b27..e2a9165 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 "")