/[emacs]/emacs/lisp/help-fns.el
ViewVC logotype

Diff of /emacs/lisp/help-fns.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by rms, Mon Apr 1 12:31:51 2002 UTC revision 1.9 by rost, Wed May 8 18:02:28 2002 UTC
# Line 210  and the file name is displayed in the ec Line 210  and the file name is displayed in the ec
210                (help-xref-button 1 'help-function def)))))                (help-xref-button 1 'help-function def)))))
211      (or file-name      (or file-name
212          (setq file-name (symbol-file function)))          (setq file-name (symbol-file function)))
213        (when (equal file-name "loaddefs.el")
214          ;; Find the real def site of the preloaded function.
215          ;; This is necessary only for defaliases.
216          (let ((location
217                 (condition-case nil
218                     (find-function-search-for-symbol function nil "loaddefs.el")
219                   (error nil))))
220            (when location
221              (with-current-buffer (car location)
222                (goto-char (cdr location))
223                (when (re-search-backward
224                       "^;;; Generated autoloads from \\(.*\\)" nil t)
225                  (setq file-name (match-string 1)))))))
226      (cond      (cond
227       (file-name       (file-name
228        (princ " in `")        (princ " in `")

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26