# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1247415650 0
# Node ID a75fa842931b221ef0264b7e225af9a0a4c100de
# Parent  d77061bfad4397ffe03cb5c1c2f2b365a30b4ebd
* pcomplete.el (pcomplete-comint-setup): Check for
shell-dynamic-complete-filename too.

diff -r d77061bfad43 -r a75fa842931b lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Jul 12 01:17:19 2009 +0000
+++ b/lisp/ChangeLog	Sun Jul 12 16:20:50 2009 +0000
@@ -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  Chong Yidong  <cyd@stupidchicken.com>
 
 	* simple.el (temporary-goal-column): Change the value for
diff -r d77061bfad43 -r a75fa842931b lisp/pcomplete.el
--- a/lisp/pcomplete.el	Sun Jul 12 01:17:19 2009 +0000
+++ b/lisp/pcomplete.el	Sun Jul 12 16:20:50 2009 +0000
@@ -590,8 +590,9 @@
   (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))))