Mercurial > emacs

changeset 47863:9925c06ca5fb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(uniquify-get-proposed-name): Don't use directory-sep-char.
author Richard M. Stallman <rms@gnu.org>
date Mon, 14 Oct 2002 01:28:36 +0000
parents ac9c67849967
children c63e96671963
files lisp/uniquify.el
diffstat 1 files changed, 8 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/uniquify.el	Mon Oct 14 01:27:19 2002 +0000
+++ b/lisp/uniquify.el	Mon Oct 14 01:28:36 2002 +0000
@@ -298,21 +298,20 @@
     (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)))))