From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 21 Oct 1994 19:37:36 +0000 (+0000)
Subject: (describe-function): Mention the file it was loaded from.
X-Git-Tag: emacs-19.34~6217
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6f6bfb857335d7a7d0edb23a3303f01e8be04755;p=emacs.git

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

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)))