(uniquify-buffer-file-name): Minor change.

1 files changed, 12 insertions, 12 deletions

diff --git a/lisp/uniquify.el b/lisp/uniquify.el
index 1eb2dfeb418..33d31987979 100644
--- a/lisp/uniquify.el
+++ b/lisp/uniquify.el
@@ -210,21 +210,21 @@ but no others."
       (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)