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