Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.

1 files changed, 19 insertions, 14 deletions

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 8db2cafbfa6..9e4c4827aaf 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1034,20 +1034,25 @@ and selects that window."
                          (let ((elt (car tail)))
                            (if (not (string-match "^ "
                                                   (buffer-name elt)))
-                               (setq head (cons
-                                           (cons
-                                            (format
-                                             (format "%%%ds  %%s%%s  %%s"
-                                                     maxbuf)
-                                             (buffer-name elt)
-                                             (if (buffer-modified-p elt)
-                                                 "*" " ")
-                                             (save-excursion
-                                               (set-buffer elt)
-                                               (if buffer-read-only "%" " "))
-                                             (or (buffer-file-name elt) ""))
-                                            elt)
-                                           head))))
+                               (setq head
+                                (cons
+                                 (cons
+                                  (format
+                                   (format "%%%ds  %%s%%s  %%s" maxbuf)
+                                   (buffer-name elt)
+                                   (if (buffer-modified-p elt) "*" " ")
+                                   (save-excursion
+                                     (set-buffer elt)
+                                     (if buffer-read-only "%" " "))
+                                   (or (buffer-file-name elt) 
+                                       (save-excursion
+                                         (set-buffer elt)
+                                         (if list-buffers-directory
+                                             (expand-file-name
+                                              list-buffers-directory)))
+                                       ""))
+                                  elt)
+                                 head))))
                          (setq tail (cdr tail)))
                        (reverse head))))))
     (let ((buf (x-popup-menu event menu))