From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 27 Oct 2004 15:05:12 +0000 (+0000)
Subject: (pcomplete-entries): Don't use directory-sep-char.
X-Git-Tag: ttn-vms-21-2-B4~4359
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=58cc447b2397b97131ee346d68c4752faee436b5;p=emacs.git

(pcomplete-entries): Don't use directory-sep-char.
---

diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el
index 5dff6d954f8..f4b796dd1a7 100644
--- a/lisp/pcomplete.el
+++ b/lisp/pcomplete.el
@@ -150,7 +150,7 @@ This mirrors the optional behavior of tcsh."
   :type 'boolean
   :group 'pcomplete)
 
-(defcustom pcomplete-suffix-list (list directory-sep-char ?:)
+(defcustom pcomplete-suffix-list (list ?/ ?:)
   "*A list of characters which constitute a proper suffix."
   :type '(repeat character)
   :group 'pcomplete)
@@ -740,7 +740,7 @@ component, `default-directory' is used as the basis for completion."
 		 (function
 		  (lambda (file)
 		    (if (eq (aref file (1- (length file)))
-			    directory-sep-char)
+			    ?/)
 			(and pcomplete-dir-ignore
 			     (string-match pcomplete-dir-ignore file))
 		      (and pcomplete-file-ignore
@@ -757,11 +757,11 @@ component, `default-directory' is used as the basis for completion."
 	       ;; since . is earlier in the ASCII alphabet than
 	       ;; /
 	       (let ((left (if (eq (aref l (1- (length l)))
-				   directory-sep-char)
+				   ?/)
 			       (substring l 0 (1- (length l)))
 			     l))
 		     (right (if (eq (aref r (1- (length r)))
-				    directory-sep-char)
+				    ?/)
 				(substring r 0 (1- (length r)))
 			      r)))
 		 (if above-cutoff