From 75e4aa067012b948dd08758d0a8b4f3ec97a7afe Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 13 Aug 1993 18:40:37 +0000 Subject: [PATCH] (mouse-menu-bar-buffers): Use list-buffers-directory. --- lisp/menu-bar.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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) -- 2.39.5