mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(describe-function-1): Extra arg, interactive-p.

Browse Source 
(describe-key, describe-function): Use it.
This commit is contained in:
Richard M. Stallman 1999-05-22 19:49:39 +00:00
parent ccbb360e3f
commit 0ab0e672f8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/help.el
View File

@ -327,7 +327,7 @@ If FUNCTION is nil, applies `message' to it, thus printing it."
(princ " runs the command ") (princ " runs the command ")
(prin1 defn) (prin1 defn)
(princ "\n which is ") (princ "\n which is ")
(describe-function-1 defn nil) (describe-function-1 defn nil (interactive-p))
(print-help-return-message))))))) (print-help-return-message)))))))
(defun describe-mode () (defun describe-mode ()
@ -591,7 +591,7 @@ It can also be nil, if the definition is not associated with any file."
;; Use " is " instead of a colon so that ;; Use " is " instead of a colon so that
;; it is easier to get out the function name using forward-sexp. ;; it is easier to get out the function name using forward-sexp.
(princ " is ") (princ " is ")
(describe-function-1 function nil) (describe-function-1 function nil (interactive-p))
(print-help-return-message) (print-help-return-message)
(save-excursion (save-excursion
(set-buffer standard-output) (set-buffer standard-output)
@ -599,7 +599,7 @@ It can also be nil, if the definition is not associated with any file."
(buffer-string))) (buffer-string)))
(message "You didn't specify a function"))) (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) (let* ((def (if (symbolp function)
(symbol-function function) (symbol-function function)
function)) function))
@ -685,7 +685,7 @@ It can also be nil, if the definition is not associated with any file."
(if doc (if doc
(progn (terpri) (progn (terpri)
(princ doc) (princ doc)
(help-setup-xref (list #'describe-function function) (interactive-p))) (help-setup-xref (list #'describe-function function) interactive-p))
(princ "not documented"))))) (princ "not documented")))))
(defun variable-at-point () (defun variable-at-point ()