Mercurial > emacs

changeset 57701:28c08e3b5530

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pcomplete): Instead of interactive-p, use an arg set non-nil by the interactive spec.
author Richard M. Stallman <rms@gnu.org>
date Tue, 26 Oct 2004 08:33:14 +0000
parents 0fcbc2db3d03
children c61ee1c7b2e8
files lisp/pcomplete.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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