[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/help-fns.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/help-fns.el |
Date: |
Tue, 11 Jun 2002 21:53:07 -0400 |
Index: emacs/lisp/help-fns.el
diff -c emacs/lisp/help-fns.el:1.8 emacs/lisp/help-fns.el:1.9
*** emacs/lisp/help-fns.el:1.8 Mon Apr 1 07:31:51 2002
--- emacs/lisp/help-fns.el Wed May 8 14:02:28 2002
***************
*** 210,215 ****
--- 210,228 ----
(help-xref-button 1 'help-function def)))))
(or file-name
(setq file-name (symbol-file function)))
+ (when (equal file-name "loaddefs.el")
+ ;; Find the real def site of the preloaded function.
+ ;; This is necessary only for defaliases.
+ (let ((location
+ (condition-case nil
+ (find-function-search-for-symbol function nil "loaddefs.el")
+ (error nil))))
+ (when location
+ (with-current-buffer (car location)
+ (goto-char (cdr location))
+ (when (re-search-backward
+ "^;;; Generated autoloads from \\(.*\\)" nil t)
+ (setq file-name (match-string 1)))))))
(cond
(file-name
(princ " in `")
- [Emacs-diffs] Changes to emacs/lisp/help-fns.el,
Miles Bader <=