diff options
| author | Stefan Monnier | 2009-10-28 13:59:30 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2009-10-28 13:59:30 +0000 |
| commit | 70f44c655cee05550fa1cfcd0aae5cf720c31447 (patch) | |
| tree | e100470a1592e9513fe8935954dbde067f0da6e1 /lisp/pcomplete.el | |
| parent | b861e45ef6b53b5d3e609c47920e1c880571e96e (diff) | |
| download | emacs-70f44c655cee05550fa1cfcd0aae5cf720c31447.tar.gz emacs-70f44c655cee05550fa1cfcd0aae5cf720c31447.zip | |
(pcomplete-comint-setup): If there's a choice, replace
shell-dynamic-complete-filename in preference to
comint-dynamic-complete-filename.
Diffstat (limited to 'lisp/pcomplete.el')
| -rw-r--r-- | lisp/pcomplete.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el index f0296532ca9..65b48f49fa9 100644 --- a/lisp/pcomplete.el +++ b/lisp/pcomplete.el | |||
| @@ -775,8 +775,8 @@ this is `comint-dynamic-complete-functions'." | |||
| 775 | (set (make-local-variable completef-sym) | 775 | (set (make-local-variable completef-sym) |
| 776 | (copy-sequence (symbol-value completef-sym))) | 776 | (copy-sequence (symbol-value completef-sym))) |
| 777 | (let* ((funs (symbol-value completef-sym)) | 777 | (let* ((funs (symbol-value completef-sym)) |
| 778 | (elem (or (memq 'comint-dynamic-complete-filename funs) | 778 | (elem (or (memq 'shell-dynamic-complete-filename funs) |
| 779 | (memq 'shell-dynamic-complete-filename funs)))) | 779 | (memq 'comint-dynamic-complete-filename funs)))) |
| 780 | (if elem | 780 | (if elem |
| 781 | (setcar elem 'pcomplete) | 781 | (setcar elem 'pcomplete) |
| 782 | (add-to-list completef-sym 'pcomplete)))) | 782 | (add-to-list completef-sym 'pcomplete)))) |