# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 927402579 0
# Node ID a03aa24489bdc7928134ea7c7e7b3d69e661aa8a
# Parent  16c7330ad1162464a1389648d12337e98409aa26
(describe-function-1): Extra arg, interactive-p.
(describe-key, describe-function): Use it.

diff -r 16c7330ad116 -r a03aa24489bd lisp/help.el
--- a/lisp/help.el	Sat May 22 19:49:10 1999 +0000
+++ b/lisp/help.el	Sat May 22 19:49:39 1999 +0000
@@ -327,7 +327,7 @@
 	    (princ " runs the command ")
 	    (prin1 defn)
 	    (princ "\n   which is ")
-	    (describe-function-1 defn nil)
+	    (describe-function-1 defn nil (interactive-p))
 	    (print-help-return-message)))))))
 
 (defun describe-mode ()
@@ -591,7 +591,7 @@
 	;; Use " is " instead of a colon so that
 	;; it is easier to get out the function name using forward-sexp.
 	(princ " is ")
-	(describe-function-1 function nil)
+	(describe-function-1 function nil (interactive-p))
 	(print-help-return-message)
 	(save-excursion
 	  (set-buffer standard-output)
@@ -599,7 +599,7 @@
 	  (buffer-string)))
     (message "You didn't specify a function")))
 
-(defun describe-function-1 (function parens)
+(defun describe-function-1 (function parens interactive-p)
   (let* ((def (if (symbolp function)
 		  (symbol-function function)
 		function))
@@ -685,7 +685,7 @@
       (if doc
 	  (progn (terpri)
 		 (princ doc)
-		 (help-setup-xref (list #'describe-function function) (interactive-p)))
+		 (help-setup-xref (list #'describe-function function) interactive-p))
 	(princ "not documented")))))
 
 (defun variable-at-point ()