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

[Miles Bader]

Index: emacs/lisp/pcomplete.el
diff -c emacs/lisp/pcomplete.el:1.8.2.4 emacs/lisp/pcomplete.el:1.8.2.5
*** emacs/lisp/pcomplete.el:1.8.2.4     Thu Apr 29 10:59:10 2004
--- emacs/lisp/pcomplete.el     Fri Oct 29 02:05:09 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)
***************
*** 347,358 ****
  ;;; User Functions:
  
  ;;;###autoload
! (defun pcomplete ()
    "Support extensible programmable completion.
  To use this function, just bind the TAB key to it, or add it to your
  completion functions list (it should occur fairly early in the list)."
!   (interactive)
!   (if (and (interactive-p)
           pcomplete-cycle-completions
           pcomplete-current-completions
           (memq last-command '(pcomplete
--- 347,358 ----
  ;;; User Functions:
  
  ;;;###autoload
! (defun pcomplete (&optional interactively)
    "Support extensible programmable completion.
  To use this function, just bind the TAB key to it, or add it to your
  completion functions list (it should occur fairly early in the list)."
!   (interactive "p")
!   (if (and interactively
           pcomplete-cycle-completions
           pcomplete-current-completions
           (memq last-command '(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