From 060a33bb97e9d7a0896ce6941eb3f63987ebf2a4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 26 Oct 2004 08:33:14 +0000 Subject: [PATCH] (pcomplete): Instead of interactive-p, use an arg set non-nil by the interactive spec. --- lisp/pcomplete.el | 6 +++--- 1 file 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." ;;; 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 -- 2.11.4.GIT