(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 1260867f7c6b92e654446e71e9496a059663e250..5dff6d954f8f7b734a97fdc4f09f0db46a37604b 100644 (file)
--- 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