# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 745267237 0
# Node ID eb7d8f0543ab76b2bcdcfb143124318ec42e66e3
# Parent  f4d3f4bce558504fe6a02ec48661b31371d36326
(mouse-menu-bar-buffers): Use list-buffers-directory.

diff -r f4d3f4bce558 -r eb7d8f0543ab lisp/menu-bar.el
--- a/lisp/menu-bar.el	Fri Aug 13 08:44:21 1993 +0000
+++ b/lisp/menu-bar.el	Fri Aug 13 18:40:37 1993 +0000
@@ -208,7 +208,11 @@
 					(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)