# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 869370384 0
# Node ID 6b368607fa68072e117cde5c8c8a3aed54d2e4ea
# Parent  754d9d9e851e229eeac40622cf32b5441c8e7a83
(uniquify-buffer-file-name): Minor change.

diff -r 754d9d9e851e -r 6b368607fa68 lisp/uniquify.el
--- a/lisp/uniquify.el	Sun Jul 20 01:32:15 1997 +0000
+++ b/lisp/uniquify.el	Sun Jul 20 03:46:24 1997 +0000
@@ -210,21 +210,21 @@
       (and (featurep 'dired)
       (save-excursion
 	(set-buffer buffer)
-	     (and
-	      (eq major-mode 'dired-mode) ; do nothing if not a dired buffer
-	      (if (boundp 'list-buffers-directory) ; XEmacs mightn't define this
-		  list-buffers-directory
-		;; don't use default-directory if dired-directory is nil
-		(and dired-directory
-		     (expand-file-name
-		      (directory-file-name
-		       (if (consp dired-directory)
-			   (car dired-directory)
-			 dired-directory))))))))))
+	(when (eq major-mode 'dired-mode) ; do nothing if not a dired buffer
+	  (if (boundp 'list-buffers-directory) ; XEmacs mightn't define this
+	      list-buffers-directory
+	    ;; don't use default-directory if dired-directory is nil
+	    (and dired-directory
+		 (expand-file-name
+		  (directory-file-name
+		   (if (consp dired-directory)
+		       (car dired-directory)
+		     dired-directory))))))))))
 
 (defun uniquify-fix-list-filename-lessp (fixlist1 fixlist2)
   (uniquify-filename-lessp
-   (uniquify-fix-list-filename fixlist1) (uniquify-fix-list-filename fixlist2)))
+   (uniquify-fix-list-filename fixlist1
+			       ) (uniquify-fix-list-filename fixlist2)))
 
 ;; This examines the filename components in reverse order.
 (defun uniquify-filename-lessp (s1 s2)