diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-07-20 03:46:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-07-20 03:46:24 +0000 |
| commit | f4dd70428a382e1c41852eed9c50de2b3ab01b02 (patch) | |
| tree | 5cddbfc60dd148950a28d4aef94190890b220c29 /lisp/uniquify.el | |
| parent | 2e18459c8f34fc9c0c41fd750eaa109cb7a0233d (diff) | |
| download | emacs-f4dd70428a382e1c41852eed9c50de2b3ab01b02.tar.gz | |
(uniquify-buffer-file-name): Minor change.
Diffstat (limited to 'lisp/uniquify.el')
| -rw-r--r-- | lisp/uniquify.el | 24 |
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) |