From ad3ec2527c2bebc632742f442cf5b3a91a3eb64c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 25 Aug 1995 15:35:37 +0000 Subject: [PATCH] (describe-function): Show file name for autoloaded fns. --- lisp/help.el | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/lisp/help.el b/lisp/help.el index 7aa5a0586a5..213e1b16eed 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -467,6 +467,7 @@ C-w print information on absence of warranty for GNU Emacs." (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 @@ C-w print information on absence of warranty for GNU Emacs." ((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) -- 2.39.2