# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1098779594 0
# Node ID 28c08e3b553013ebf6941de429cb3b5e810a149d
# Parent  0fcbc2db3d03925ace70f0f0fc20160f69b51871
(pcomplete): Instead of interactive-p,
use an arg set non-nil by the interactive spec.

diff -r 0fcbc2db3d03 -r 28c08e3b5530 lisp/pcomplete.el
--- a/lisp/pcomplete.el	Tue Oct 26 08:31:40 2004 +0000
+++ b/lisp/pcomplete.el	Tue Oct 26 08:33:14 2004 +0000
@@ -347,12 +347,12 @@
 ;;; 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