mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1997-07-20 03:46:24 +00:00
parent cc28371844
commit 8a2d940690
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lisp/uniquify.el
View File

@ -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)