diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-10-14 01:28:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-10-14 01:28:36 +0000 |
| commit | 5da10d404b53cfffee1b6d8469e3ea674a739258 (patch) | |
| tree | 1b7bd5382f03fd7da6dc8c2fbb388a2e3fa720f6 /lisp/uniquify.el | |
| parent | 1b0d40de85b5af240a3afec74a80397459d747cb (diff) | |
| download | emacs-5da10d404b53cfffee1b6d8469e3ea674a739258.tar.gz | |
(uniquify-get-proposed-name): Don't use directory-sep-char.
Diffstat (limited to 'lisp/uniquify.el')
| -rw-r--r-- | lisp/uniquify.el | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/lisp/uniquify.el b/lisp/uniquify.el index 27001fc17aa..25f931868e9 100644 --- a/lisp/uniquify.el +++ b/lisp/uniquify.el @@ -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))))) |