150 |
:type 'boolean |
:type 'boolean |
151 |
:group 'pcomplete) |
:group 'pcomplete) |
152 |
|
|
153 |
(defcustom pcomplete-suffix-list (list directory-sep-char ?:) |
(defcustom pcomplete-suffix-list (list ?/ ?:) |
154 |
"*A list of characters which constitute a proper suffix." |
"*A list of characters which constitute a proper suffix." |
155 |
:type '(repeat character) |
:type '(repeat character) |
156 |
:group 'pcomplete) |
:group 'pcomplete) |
740 |
(function |
(function |
741 |
(lambda (file) |
(lambda (file) |
742 |
(if (eq (aref file (1- (length file))) |
(if (eq (aref file (1- (length file))) |
743 |
directory-sep-char) |
?/) |
744 |
(and pcomplete-dir-ignore |
(and pcomplete-dir-ignore |
745 |
(string-match pcomplete-dir-ignore file)) |
(string-match pcomplete-dir-ignore file)) |
746 |
(and pcomplete-file-ignore |
(and pcomplete-file-ignore |
757 |
;; since . is earlier in the ASCII alphabet than |
;; since . is earlier in the ASCII alphabet than |
758 |
;; / |
;; / |
759 |
(let ((left (if (eq (aref l (1- (length l))) |
(let ((left (if (eq (aref l (1- (length l))) |
760 |
directory-sep-char) |
?/) |
761 |
(substring l 0 (1- (length l))) |
(substring l 0 (1- (length l))) |
762 |
l)) |
l)) |
763 |
(right (if (eq (aref r (1- (length r))) |
(right (if (eq (aref r (1- (length r))) |
764 |
directory-sep-char) |
?/) |
765 |
(substring r 0 (1- (length r))) |
(substring r 0 (1- (length r))) |
766 |
r))) |
r))) |
767 |
(if above-cutoff |
(if above-cutoff |