Mercurial > emacs

changeset 10420:c8c4034ee573

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix previous change.
author Richard M. Stallman <rms@gnu.org>
date Fri, 13 Jan 1995 08:24:35 +0000
parents cb6f68d16210
children 4252d6935d43
files lisp/buff-menu.el
diffstat 1 files changed, 9 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- 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