diff options
| author | Richard M. Stallman <[email protected]> | 2004-10-26 08:33:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2004-10-26 08:33:14 +0000 |
| commit | 060a33bb97e9d7a0896ce6941eb3f63987ebf2a4 (patch) | |
| tree | 1c7f5e64520cfbecb904383c9c0bf59eae3322ff | |
| parent | da67fa9af870eddfbd8181c1ae135b6342493139 (diff) | |
(pcomplete): Instead of interactive-p,
use an arg set non-nil by the interactive spec.
| -rw-r--r-- | lisp/pcomplete.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el index 1260867f7c..5dff6d954f 100644 --- a/lisp/pcomplete.el +++ b/lisp/pcomplete.el @@ -347,12 +347,12 @@ modified to be an empty string, or the desired separation string." ;;; User Functions: ;;;###autoload -(defun pcomplete () +(defun pcomplete (&optional interactively) "Support extensible programmable completion. To use this function, just bind the TAB key to it, or add it to your completion functions list (it should occur fairly early in the list)." - (interactive) - (if (and (interactive-p) + (interactive "p") + (if (and interactively pcomplete-cycle-completions pcomplete-current-completions (memq last-command '(pcomplete |