mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(describe-function): Mention the file it was loaded from.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-10-21 19:37:36 +00:00
parent 9fe320f1e3
commit 6f6bfb8573
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/help.el
View File

@ -388,27 +388,33 @@ C-w print information on absence of warranty for GNU Emacs."
(beg (if (commandp def) "an interactive " "a ")))
(princ (cond ((or (stringp def)
(vectorp def))
"a keyboard macro.")
"a keyboard macro")
((subrp def)
(concat beg "built-in function."))
(concat beg "built-in function"))
((byte-code-function-p def)
(concat beg "compiled Lisp function."))
(concat beg "compiled Lisp function"))
((symbolp def)
(format "alias for `%s'." def))
(format "alias for `%s'" def))
((eq (car-safe def) 'lambda)
(concat beg "Lisp function."))
(concat beg "Lisp function"))
((eq (car-safe def) 'macro)
"a Lisp macro.")
"a Lisp macro")
((eq (car-safe def) 'mocklisp)
"a mocklisp function.")
"a mocklisp function")
((eq (car-safe def) 'autoload)
(format "%s autoloaded Lisp %s."
(format "%s autoloaded Lisp %s"
(if (commandp def) "an interactive" "an")
(if (nth 4 def) "macro" "function")
;;; Including the file name made this line too long.
;;; (nth 1 def)
))
(t "")))
(if (get function 'autoload)
(progn
(princ " in the `")
(princ (car (get function 'autoload)))
(princ "' package")))
(princ ".")
(terpri)
(let ((arglist (cond ((byte-code-function-p def)
(car (append def nil)))