diff options
| author | John Wiegley | 2002-07-31 23:32:14 +0000 |
|---|---|---|
| committer | John Wiegley | 2002-07-31 23:32:14 +0000 |
| commit | 22eb1d41ef2a3b4975f3d1cc56864cf778ff2435 (patch) | |
| tree | 105a85ed13c32f88dac20313cf630c15c6a1e6f9 | |
| parent | c71cb98b7436c28649d873d3d0cd176df83bf800 (diff) | |
| download | emacs-22eb1d41ef2a3b4975f3d1cc56864cf778ff2435.tar.gz emacs-22eb1d41ef2a3b4975f3d1cc56864cf778ff2435.zip | |
(pcomplete-comint-setup): Use `add-to-list', to prevent adding the
symbol `pcomplete' to shell-dynamic-complete-functions too many times.
| -rw-r--r-- | lisp/pcomplete.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el index 3ab1619f127..9a1403cc104 100644 --- a/lisp/pcomplete.el +++ b/lisp/pcomplete.el | |||
| @@ -582,8 +582,7 @@ dynamic-complete-functions are kept. For comint mode itself, this is | |||
| 582 | (symbol-value completef-sym)))) | 582 | (symbol-value completef-sym)))) |
| 583 | (if elem | 583 | (if elem |
| 584 | (setcar elem 'pcomplete) | 584 | (setcar elem 'pcomplete) |
| 585 | (nconc (symbol-value completef-sym) | 585 | (add-to-list completef-sym 'pcomplete)))) |
| 586 | (list 'pcomplete))))) | ||
| 587 | 586 | ||
| 588 | ;;;###autoload | 587 | ;;;###autoload |
| 589 | (defun pcomplete-shell-setup () | 588 | (defun pcomplete-shell-setup () |