From 6f6bfb857335d7a7d0edb23a3303f01e8be04755 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 21 Oct 1994 19:37:36 +0000 Subject: [PATCH] (describe-function): Mention the file it was loaded from. --- lisp/help.el | 22 ++++++++++++++-------- 1 file changed, 14 insertions(+), 8 deletions(-) diff --git a/lisp/help.el b/lisp/help.el index a0c948d16dc..b2172fb91e2 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -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))) -- 2.39.5