[Emacs-diffs] Changes to emacs/lisp/pcomplete.el

[Richard M . Stallman]

Index: emacs/lisp/pcomplete.el
diff -c emacs/lisp/pcomplete.el:1.17 emacs/lisp/pcomplete.el:1.18
*** emacs/lisp/pcomplete.el:1.17        Tue Oct 26 08:33:14 2004
--- emacs/lisp/pcomplete.el     Wed Oct 27 15:05:12 2004
***************
*** 150,156 ****
    :type 'boolean
    :group 'pcomplete)
  
! (defcustom pcomplete-suffix-list (list directory-sep-char ?:)
    "*A list of characters which constitute a proper suffix."
    :type '(repeat character)
    :group 'pcomplete)
--- 150,156 ----
    :type 'boolean
    :group 'pcomplete)
  
! (defcustom pcomplete-suffix-list (list ?/ ?:)
    "*A list of characters which constitute a proper suffix."
    :type '(repeat character)
    :group 'pcomplete)
***************
*** 740,746 ****
                 (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
--- 740,746 ----
                 (function
                  (lambda (file)
                    (if (eq (aref file (1- (length file)))
!                           ?/)
                        (and pcomplete-dir-ignore
                             (string-match pcomplete-dir-ignore file))
                      (and pcomplete-file-ignore
***************
*** 757,767 ****
               ;; 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
--- 757,767 ----
               ;; since . is earlier in the ASCII alphabet than
               ;; /
               (let ((left (if (eq (aref l (1- (length l)))
!                                  ?/)
                               (substring l 0 (1- (length l)))
                             l))
                     (right (if (eq (aref r (1- (length r)))
!                                   ?/)
                                (substring r 0 (1- (length r)))
                              r)))
                 (if above-cutoff