diff options
| author | Richard M. Stallman | 1993-08-13 18:40:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-08-13 18:40:37 +0000 |
| commit | 75e4aa067012b948dd08758d0a8b4f3ec97a7afe (patch) | |
| tree | 31b06521bd2b2a49ebd4e239895c4015a99d7974 | |
| parent | 6a6eec7e2222c94734d7de5d266f6923488063f0 (diff) | |
| download | emacs-75e4aa067012b948dd08758d0a8b4f3ec97a7afe.tar.gz emacs-75e4aa067012b948dd08758d0a8b4f3ec97a7afe.zip | |
(mouse-menu-bar-buffers): Use list-buffers-directory.
| -rw-r--r-- | lisp/menu-bar.el | 6 |
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." | |||
| 208 | (save-excursion | 208 | (save-excursion |
| 209 | (set-buffer elt) | 209 | (set-buffer elt) |
| 210 | (if buffer-read-only "%" " ")) | 210 | (if buffer-read-only "%" " ")) |
| 211 | (or (buffer-file-name elt) "")) | 211 | (or (buffer-file-name elt) |
| 212 | (save-excursion | ||
| 213 | (set-buffer elt) | ||
| 214 | list-buffers-directory) | ||
| 215 | "")) | ||
| 212 | elt) | 216 | elt) |
| 213 | head))) | 217 | head))) |
| 214 | (and head (> (length (car (car head))) maxlen) | 218 | (and head (> (length (car (car head))) maxlen) |