[Emacs-diffs] emacs/lisp ChangeLog pcomplete.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/07/12 16:20:54

Modified files:
        lisp           : ChangeLog pcomplete.el 

Log message:
        * pcomplete.el (pcomplete-comint-setup): Check for
        shell-dynamic-complete-filename too.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15797&r2=1.15798
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/pcomplete.el?cvsroot=emacs&r1=1.39&r2=1.40

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15797
retrieving revision 1.15798
diff -u -b -r1.15797 -r1.15798
--- ChangeLog   11 Jul 2009 16:36:05 -0000      1.15797
+++ ChangeLog   12 Jul 2009 16:20:50 -0000      1.15798
@@ -1,3 +1,8 @@
+2009-07-12  Guanpeng Xu  <address@hidden>
+
+       * pcomplete.el (pcomplete-comint-setup): Check for
+       shell-dynamic-complete-filename too.
+
 2009-07-11  Chong Yidong  <address@hidden>
 
        * simple.el (temporary-goal-column): Change the value for

Index: pcomplete.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/pcomplete.el,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -b -r1.39 -r1.40
--- pcomplete.el        5 Jan 2009 03:19:38 -0000       1.39
+++ pcomplete.el        12 Jul 2009 16:20:53 -0000      1.40
@@ -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))))