From ca5ed1961697da6142c2e015b568f82499a176f0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 21 Oct 1994 19:42:50 +0000 Subject: [PATCH] (describe-function-find-file): New function. (describe-function): Use that. --- lisp/help.el | 20 +++++++++++++++----- 1 file changed, 15 insertions(+), 5 deletions(-) diff --git a/lisp/help.el b/lisp/help.el index b2172fb91e2..2845ad96412 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -369,6 +369,15 @@ C-w print information on absence of warranty for GNU Emacs." (and (symbolp obj) (fboundp obj) obj))) (error nil)))) +(defun describe-function-find-file (function) + (let ((files load-history) + file functions) + (while files + (if (memq function (cdr (car files))) + (setq file (car (car files)) files nil)) + (setq files (cdr files))) + file)) + (defun describe-function (function) "Display the full documentation of FUNCTION (a symbol)." (interactive @@ -409,11 +418,12 @@ C-w print information on absence of warranty for GNU Emacs." ;;; (nth 1 def) )) (t ""))) - (if (get function 'autoload) - (progn - (princ " in the `") - (princ (car (get function 'autoload))) - (princ "' package"))) + (let ((file (describe-function-find-file function))) + (if file + (progn + (princ " in `") + (princ file) + (princ ".el'")))) (princ ".") (terpri) (let ((arglist (cond ((byte-code-function-p def) -- 2.39.5