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 | 5e85cac81687eda40ce57f46c6ad33cc6d0321fa (patch) | |
tree | 9d87e4804a9ab1da9fe92cc4f5f4a4cc19fcbec5 /lisp/buff-menu.el | |
parent | 88a3a920c9f5ad441fefbe4344aac08853dc00ae (diff) | |
download | emacs-5e85cac81687eda40ce57f46c6ad33cc6d0321fa.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 |