Mercurial > emacs

changeset 57745:d1fa1cbd6c4d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pcomplete-entries): Don't use directory-sep-char.
author Richard M. Stallman <rms@gnu.org>
date Wed, 27 Oct 2004 15:05:12 +0000
parents a14f0e52fd5e
children 394f5aa03475
files lisp/pcomplete.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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