From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 14 Oct 2002 01:28:36 +0000 (+0000)
Subject: (uniquify-get-proposed-name): Don't use directory-sep-char.
X-Git-Tag: ttn-vms-21-2-B4~12847
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5da10d404b53cfffee1b6d8469e3ea674a739258;p=emacs.git

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

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)))))