# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1098889512 0
# Node ID d1fa1cbd6c4d33c8a2ff3800f50bf94512295d26
# Parent  a14f0e52fd5e20ecbeca4bcccb385e9d369d1828
(pcomplete-entries): Don't use directory-sep-char.

diff -r a14f0e52fd5e -r d1fa1cbd6c4d lisp/pcomplete.el
--- a/lisp/pcomplete.el	Wed Oct 27 15:04:26 2004 +0000
+++ b/lisp/pcomplete.el	Wed Oct 27 15:05:12 2004 +0000
@@ -150,7 +150,7 @@
   :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 @@
 		 (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 @@
 	       ;; 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