mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(uniquify-get-proposed-name): Don't use directory-sep-char.

Browse Source
This commit is contained in:
Richard M. Stallman 2002-10-14 01:28:36 +00:00
parent 1b0d40de85
commit 5da10d404b
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/uniquify.el
View File

@ -298,21 +298,20 @@ in `uniquify-list-buffers-directory-modes', otherwise returns nil."
(cond
((null extra-string) base)
((string-equal base "") ;Happens for dired buffers on the root directory.
(mapconcat 'identity extra-string (string directory-sep-char)))
(mapconcat 'identity extra-string "/"))
((eq uniquify-buffer-name-style 'reverse)
(let ((dirsep (string directory-sep-char)))
(mapconcat 'identity
(cons base (nreverse extra-string))
(or uniquify-separator "\\"))))
(mapconcat 'identity
(cons base (nreverse extra-string))
(or uniquify-separator "\\")))
((eq uniquify-buffer-name-style 'forward)
(mapconcat 'identity (nconc extra-string (list base))
(string directory-sep-char)))
"/"))
((eq uniquify-buffer-name-style 'post-forward)
(concat base (or uniquify-separator "|")
(mapconcat 'identity extra-string (string directory-sep-char))))
(mapconcat 'identity extra-string "/")))
((eq uniquify-buffer-name-style 'post-forward-angle-brackets)
(concat base "<" (mapconcat 'identity extra-string
(string directory-sep-char)) ">"))
(concat base "<" (mapconcat 'identity extra-string "/")
">"))
(t (error "Bad value for uniquify-buffer-name-style: %s"
uniquify-buffer-name-style)))))