# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1034558916 0
# Node ID 9925c06ca5fb219c57933ea3f49eb1e5f2b7d921
# Parent  ac9c678499677d557edccb24a6ab02e907031ab3
(uniquify-get-proposed-name): Don't use directory-sep-char.

diff -r ac9c67849967 -r 9925c06ca5fb lisp/uniquify.el
--- 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)))))