Fixes: debbugs:19335

* lisp/ido.el (ido-add-virtual-buffers-to-list): Include bookmark-alist files

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 534ba9d5f23da461de1d58462e631cfe7c7e73f9..97253c8824ea4a20c3499691972224ad44d9e43c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-03-12  Rasmus Pank Roulund  <emacs@pank.eu>
+
+       * ido.el (ido-add-virtual-buffers-to-list): Include bookmark-alist
+       files (bug#19335).
+
 2015-03-12  Eli Zaretskii  <eliz@gnu.org>
 
        * international/fontset.el (script-representative-chars): Add a

diff --git a/lisp/ido.el b/lisp/ido.el
index 1f4e3facd3645faec4821fda7212090fc5765f63..563f406aeb6ef13b4896018e0231b2db7a8d0911 100644 (file)
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -3480,8 +3480,14 @@ 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 (name)
-    (dolist (head recentf-list)
+  (let ((bookmarks (and (boundp 'bookmark-alist)
+                        bookmark-alist))
+        name)
+    (dolist (head (append
+                   recentf-list
+                   (delq nil (mapcar (lambda (bookmark)
+                                       (cdr (assoc 'filename bookmark)))
+                                     bookmarks))))
       (setq name (file-name-nondirectory head))
       ;; In case HEAD is a directory with trailing /.  See bug#14552.
       (when (equal name "")