# HG changeset patch
# User Simon Marshall <simon@gnu.org>
# Date 793370838 0
# Node ID 7d1a9faaf1581cd189a8813c0a96a20641abb54a
# Parent  af7c0bb1059f25597c318884cd875a801fe02c76
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.

diff -r af7c0bb1059f -r 7d1a9faaf158 lisp/mouse.el
--- a/lisp/mouse.el	Mon Feb 20 23:15:10 1995 +0000
+++ b/lisp/mouse.el	Tue Feb 21 12:47:18 1995 +0000
@@ -1034,20 +1034,25 @@
 			 (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))