246 |
in `load-path'." |
in `load-path'." |
247 |
(if (not function) |
(if (not function) |
248 |
(error "You didn't specify a function")) |
(error "You didn't specify a function")) |
|
(and (subrp (symbol-function function)) |
|
|
(error "%s is a primitive function" function)) |
|
249 |
(let ((def (symbol-function function)) |
(let ((def (symbol-function function)) |
250 |
aliases) |
aliases) |
251 |
(while (symbolp def) |
(while (symbolp def) |
263 |
(let ((library |
(let ((library |
264 |
(cond ((eq (car-safe def) 'autoload) |
(cond ((eq (car-safe def) 'autoload) |
265 |
(nth 1 def)) |
(nth 1 def)) |
266 |
|
((subrp def) |
267 |
|
(help-C-file-name def 'subr)) |
268 |
((symbol-file function 'defun))))) |
((symbol-file function 'defun))))) |
269 |
(find-function-search-for-symbol function nil library)))) |
(find-function-search-for-symbol function nil library)))) |
270 |
|
|