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

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 8db2cafbfa6a5cf062f8ef1f5ed88d619450b33f..9e4c4827aaf9a382729ed019e7081c7a1edce2ec 100644 (file)
--- 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))