diff options
| author | Richard M. Stallman | 2004-10-26 08:33:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-10-26 08:33:14 +0000 |
| commit | 060a33bb97e9d7a0896ce6941eb3f63987ebf2a4 (patch) | |
| tree | 1c7f5e64520cfbecb904383c9c0bf59eae3322ff | |
| parent | da67fa9af870eddfbd8181c1ae135b6342493139 (diff) | |
| download | emacs-060a33bb97e9d7a0896ce6941eb3f63987ebf2a4.tar.gz emacs-060a33bb97e9d7a0896ce6941eb3f63987ebf2a4.zip | |
(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 1260867f7c6..5dff6d954f8 100644 --- a/lisp/pcomplete.el +++ b/lisp/pcomplete.el | |||
| @@ -347,12 +347,12 @@ modified to be an empty string, or the desired separation string." | |||
| 347 | ;;; User Functions: | 347 | ;;; User Functions: |
| 348 | 348 | ||
| 349 | ;;;###autoload | 349 | ;;;###autoload |
| 350 | (defun pcomplete () | 350 | (defun pcomplete (&optional interactively) |
| 351 | "Support extensible programmable completion. | 351 | "Support extensible programmable completion. |
| 352 | To use this function, just bind the TAB key to it, or add it to your | 352 | To use this function, just bind the TAB key to it, or add it to your |
| 353 | completion functions list (it should occur fairly early in the list)." | 353 | completion functions list (it should occur fairly early in the list)." |
| 354 | (interactive) | 354 | (interactive "p") |
| 355 | (if (and (interactive-p) | 355 | (if (and interactively |
| 356 | pcomplete-cycle-completions | 356 | pcomplete-cycle-completions |
| 357 | pcomplete-current-completions | 357 | pcomplete-current-completions |
| 358 | (memq last-command '(pcomplete | 358 | (memq last-command '(pcomplete |