/[emacs]/emacs/lisp/pcomplete.el
ViewVC logotype

Diff of /emacs/lisp/pcomplete.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13.6.3 by miles, Wed Oct 27 05:42:00 2004 UTC revision 1.13.6.4 by miles, Thu Nov 4 08:55:37 2004 UTC
# Line 150  This mirrors the optional behavior of tc Line 150  This mirrors the optional behavior of tc
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)
# Line 740  component, `default-directory' is used a Line 740  component, `default-directory' is used a
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
# Line 757  component, `default-directory' is used a Line 757  component, `default-directory' is used a
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

Legend:
Removed from v.1.13.6.3  
changed lines
  Added in v.1.13.6.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26