Mercurial > emacs
changeset 103870:a75fa842931b
* pcomplete.el (pcomplete-comint-setup): Check for
shell-dynamic-complete-filename too.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 12 Jul 2009 16:20:50 +0000 |
| parents | d77061bfad43 |
| children | 819d4646794e |
| files | lisp/ChangeLog lisp/pcomplete.el |
| diffstat | 2 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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))))