# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 789985475 0
# Node ID c8c4034ee573d38b5bf72ee53ecba94189ed0a00
# Parent  cb6f68d1621028119a4a89a82aeea0da6e8a15b5
Fix previous change.

diff -r cb6f68d16210 -r c8c4034ee573 lisp/buff-menu.el
--- a/lisp/buff-menu.el	Fri Jan 13 08:14:25 1995 +0000
+++ b/lisp/buff-menu.el	Fri Jan 13 08:24:35 1995 +0000
@@ -485,15 +485,16 @@
 		(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