mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
shell-dynamic-complete-filename too.
This commit is contained in:
Chong Yidong 2009-07-12 16:20:50 +00:00
parent 332eb5f1a9
commit 208384c5cf
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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> 2009-07-11 Chong Yidong <cyd@stupidchicken.com>
* simple.el (temporary-goal-column): Change the value for * simple.el (temporary-goal-column): Change the value for

5
lisp/pcomplete.el
View File

@ -590,8 +590,9 @@ this is `comint-dynamic-complete-functions'."
(set (make-local-variable 'pcomplete-parse-arguments-function) (set (make-local-variable 'pcomplete-parse-arguments-function)
'pcomplete-parse-comint-arguments) 'pcomplete-parse-comint-arguments)
(make-local-variable completef-sym) (make-local-variable completef-sym)
(let ((elem (memq 'comint-dynamic-complete-filename (let* ((funs (symbol-value completef-sym))
(symbol-value completef-sym)))) (elem (or (memq 'comint-dynamic-complete-filename funs)
(memq 'shell-dynamic-complete-filename funs))))
(if elem (if elem
(setcar elem 'pcomplete) (setcar elem 'pcomplete)
(add-to-list completef-sym 'pcomplete)))) (add-to-list completef-sym 'pcomplete))))