diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-01-13 08:24:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-01-13 08:24:35 +0000 |
| commit | 84b2b0a7f28531094247b8d15be60a52d24cdebd (patch) | |
| tree | a97c7452258276f745f259c829de7721e0c6cf0b /lisp/buff-menu.el | |
| parent | 0b03ce3a17259c56ed922ae5fe9776ec75cbb38b (diff) | |
| download | emacs-84b2b0a7f28531094247b8d15be60a52d24cdebd.tar.gz | |
Fix previous change.
Diffstat (limited to 'lisp/buff-menu.el')
| -rw-r--r-- | lisp/buff-menu.el | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 7924e6a6a4a..e786fae147c 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -485,15 +485,16 @@ The R column contains a % for buffers that are read-only." (indent-to 27 1) (princ mode)) (indent-to 40 1) + (or file + ;; No visited file. Check local value of + ;; list-buffers-directory. + (save-excursion + (set-buffer buffer) + (if (and (boundp 'list-buffers-directory) + list-buffers-directory) + (setq file list-buffers-directory)))) (if file - (princ file) - ;; No visited file. Check local value of - ;; list-buffers-directory. - (save-excursion - (set-buffer buffer) - (if (and (boundp list-buffers-directory) - list-buffers-directory) - (princ list-buffers-directory)))) + (princ file)) (princ "\n")))) (setq bl (cdr bl))))) ;; DESIRED-POINT doesn't have to be set; it is not when the |