mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 2004-10-27 15:05:12 +00:00
parent 5d6101401f
commit 58cc447b23
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/pcomplete.el
View file

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