Mercurial > emacs
changeset 18876:6b368607fa68
(uniquify-buffer-file-name): Minor change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 20 Jul 1997 03:46:24 +0000 |
| parents | 754d9d9e851e |
| children | d3e5a5f5fe02 |
| files | lisp/uniquify.el |
| diffstat | 1 files changed, 12 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- 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)