1 files changed, 5 insertions, 1 deletions

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)