From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 26 Oct 2004 08:33:14 +0000 (+0000)
Subject: (pcomplete): Instead of interactive-p,
X-Git-Tag: ttn-vms-21-2-B4~4400
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=060a33bb97e9d7a0896ce6941eb3f63987ebf2a4;p=emacs.git

(pcomplete): Instead of interactive-p,
use an arg set non-nil by the interactive spec.
---

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