[Emacs-diffs] Changes to emacs/lisp/help-fns.el

[Markus Rost]

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 `")