Mercurial > emacs
changeset 24759:a03aa24489bd
(describe-function-1): Extra arg, interactive-p.
(describe-key, describe-function): Use it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 22 May 1999 19:49:39 +0000 |
| parents | 16c7330ad116 |
| children | 079175ba0db7 |
| files | lisp/help.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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 ()