From 8a2d9406904828f4fc3d285739771bc335153824 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 20 Jul 1997 03:46:24 +0000 Subject: [PATCH] (uniquify-buffer-file-name): Minor change. --- lisp/uniquify.el | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/lisp/uniquify.el b/lisp/uniquify.el index 1eb2dfeb41..33d3198797 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) -- 2.39.2