* pcomplete.el (pcomplete-comint-setup): Check for

shell-dynamic-complete-filename too.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d18e2e1912fbcb8dc81da9cb8c85c4241f33a280..5b8be873569b131a1667ee3849e62c5535cd03ac 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-07-12  Guanpeng Xu  <herberteuler@hotmail.com>
+
+       * pcomplete.el (pcomplete-comint-setup): Check for
+       shell-dynamic-complete-filename too.
+
 2009-07-11  Kenichi Handa  <handa@m17n.org>
 
        * international/mule-diag.el (describe-character-set): Don't show

diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el
index 7a8c6e7c2475acc8d907da52d45f95753be633ac..c24f3cedae59ab44a9e5a846e6ef2ba67c0211b1 100644 (file)
--- a/lisp/pcomplete.el
+++ b/lisp/pcomplete.el
@@ -590,8 +590,9 @@ this is `comint-dynamic-complete-functions'."
   (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))))
+  (let* ((funs (symbol-value completef-sym))
+        (elem (or (memq 'comint-dynamic-complete-filename funs)
+                  (memq 'shell-dynamic-complete-filename funs))))
     (if elem
        (setcar elem 'pcomplete)
       (add-to-list completef-sym 'pcomplete))))