Mercurial > emacs

changeset 10790:7d1a9faaf158

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.
author Simon Marshall <simon@gnu.org>
date Tue, 21 Feb 1995 12:47:18 +0000
parents af7c0bb1059f
children 1d1db37a4bb7
files lisp/mouse.el
diffstat 1 files changed, 19 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- 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))