Patch to pcomplete to make it work with shell-mode again

[Herbert Euler <herberteuler@hotmail.com>]

[-- Attachment #1.1: Type: text/plain, Size: 343 bytes --]


After the new function `shell-dynamic-complete-filename' was added, pcomplete was broken.
The attached patch fixes it.

Regards,
Guanpeng Xu

_________________________________________________________________
Windows Live™: Keep your life in sync. Check it out!
http://windowslive.com/explore?ocid=TXT_TAGLM_WL_t1_allup_explore_012009

[-- Attachment #1.2: Type: text/html, Size: 514 bytes --]

[-- Attachment #2: pcomplete.patch --]
[-- Type: application/octet-stream, Size: 1149 bytes --]

Index: pcomplete.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/pcomplete.el,v
retrieving revision 1.39
diff -c -F '^(defun' -r1.39 pcomplete.el
*** pcomplete.el	5 Jan 2009 03:19:38 -0000	1.39
--- pcomplete.el	9 Jul 2009 08:26:38 -0000
*************** (defun pcomplete-comint-setup (completef
*** 590,597 ****
    (set (make-local-variable 'pcomplete-parse-arguments-function)
         'pcomplete-parse-comint-arguments)
    (make-local-variable completef-sym)
!   (let ((elem (memq 'comint-dynamic-complete-filename
! 		    (symbol-value completef-sym))))
      (if elem
  	(setcar elem 'pcomplete)
        (add-to-list completef-sym 'pcomplete))))
--- 590,599 ----
    (set (make-local-variable 'pcomplete-parse-arguments-function)
         'pcomplete-parse-comint-arguments)
    (make-local-variable completef-sym)
!   (let ((elem (or (memq 'comint-dynamic-complete-filename
! 			(symbol-value completef-sym))
! 		  (memq 'shell-dynamic-complete-filename
! 			(symbol-value completef-sym)))))
      (if elem
  	(setcar elem 'pcomplete)
        (add-to-list completef-sym 'pcomplete))))