From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 13 Jan 1995 08:24:35 +0000 (+0000)
Subject: Fix previous change.
X-Git-Tag: emacs-19.34~5438
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=84b2b0a7f28531094247b8d15be60a52d24cdebd;p=emacs.git

Fix previous change.
---

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