From 84b2b0a7f28531094247b8d15be60a52d24cdebd Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 13 Jan 1995 08:24:35 +0000 Subject: [PATCH] Fix previous change. --- lisp/buff-menu.el | 17 +++++++++-------- 1 file 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 -- 2.39.5