diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-10-27 15:05:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-10-27 15:05:12 +0000 |
| commit | 58cc447b2397b97131ee346d68c4752faee436b5 (patch) | |
| tree | 697f0562bfad6804de7e4c9e081b96bc5e627c49 /lisp/pcomplete.el | |
| parent | 5d6101401f6f57d150a33f46e11f3efab815e5df (diff) | |
| download | emacs-58cc447b2397b97131ee346d68c4752faee436b5.tar.gz | |
(pcomplete-entries): Don't use directory-sep-char.
Diffstat (limited to 'lisp/pcomplete.el')
| -rw-r--r-- | lisp/pcomplete.el | 8 |
1 files changed, 4 insertions, 4 deletions
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 |