From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 13 Aug 1993 18:40:37 +0000 (+0000)
Subject: (mouse-menu-bar-buffers): Use list-buffers-directory.
X-Git-Tag: emacs-19.34~11248
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=75e4aa067012b948dd08758d0a8b4f3ec97a7afe;p=emacs.git

(mouse-menu-bar-buffers): Use list-buffers-directory.
---

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 2b34cb96dfb..ebada611abd 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -208,7 +208,11 @@ and selects that window."
 					(save-excursion
 					  (set-buffer elt)
 					  (if buffer-read-only "%" " "))
-					(or (buffer-file-name elt) ""))
+					(or (buffer-file-name elt)
+					    (save-excursion
+					      (set-buffer elt)
+					      list-buffers-directory)
+					    ""))
 				       elt)
 				      head)))
 		      (and head (> (length (car (car head))) maxlen)