# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 782768256 0
# Node ID e77a0d87d792a94af08d391ca5ec8acc329a147f
# Parent  208a783fe72a92b936a09ffd6b81d6d83787f5e5
(describe-function): Mention the file it was loaded from.

diff -r 208a783fe72a -r e77a0d87d792 lisp/help.el
--- a/lisp/help.el	Fri Oct 21 19:27:26 1994 +0000
+++ b/lisp/help.el	Fri Oct 21 19:37:36 1994 +0000
@@ -388,27 +388,33 @@
 	   (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)))