Mercurial > emacs

changeset 12941:0c332255735f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-function): Show file name for autoloaded fns.
author Richard M. Stallman <rms@gnu.org>
date Fri, 25 Aug 1995 15:35:37 +0000
parents f7d26ee5ea26
children 3685b0e52d2a
files lisp/help.el
diffstat 1 files changed, 11 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help.el	Fri Aug 25 15:14:03 1995 +0000
+++ b/lisp/help.el	Fri Aug 25 15:35:37 1995 +0000
@@ -467,6 +467,7 @@
     (prin1 function)
     (princ ": ")
     (let* ((def (symbol-function function))
+	   file-name
 	   (beg (if (commandp def) "an interactive " "a ")))
       (princ (cond ((or (stringp def)
 			(vectorp def))
@@ -484,21 +485,21 @@
 		   ((eq (car-safe def) 'mocklisp)
 		    "a mocklisp function")
 		   ((eq (car-safe def) 'autoload)
+		    (setq file-name (nth 1 def))
 		    (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 "")))
-      (let ((file (describe-function-find-file function)))
-	(if file
-	    (progn
-	      (princ " in `")
-	      ;; We used to add .el to the file name,
-	      ;; but that's completely wrong when the user used load-file.
-	      (princ file)
-	      (princ "'"))))
+      (or file-name
+	  (setq file-name (describe-function-find-file function)))
+      (if file-name
+	  (progn
+	    (princ " in `")
+	    ;; We used to add .el to the file name,
+	    ;; but that's completely wrong when the user used load-file.
+	    (princ file-name)
+	    (princ "'")))
       (princ ".")
       (terpri)
       (let ((arglist (cond ((byte-code-function-p def)