From 5da10d404b53cfffee1b6d8469e3ea674a739258 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 14 Oct 2002 01:28:36 +0000 Subject: [PATCH] (uniquify-get-proposed-name): Don't use directory-sep-char. --- lisp/uniquify.el | 17 ++++++++--------- 1 file 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))))) -- 2.39.2