242 |
(let ((library |
(let ((library |
243 |
(cond ((eq (car-safe def) 'autoload) |
(cond ((eq (car-safe def) 'autoload) |
244 |
(nth 1 def)) |
(nth 1 def)) |
245 |
((symbol-file function))))) |
((symbol-file function 'defun))))) |
246 |
(find-function-search-for-symbol function nil library)))) |
(find-function-search-for-symbol function nil library)))) |
247 |
|
|
248 |
(defalias 'function-at-point 'function-called-at-point) |
(defalias 'function-at-point 'function-called-at-point) |
347 |
`find-function-source-path', if non nil, otherwise in `load-path'." |
`find-function-source-path', if non nil, otherwise in `load-path'." |
348 |
(if (not variable) |
(if (not variable) |
349 |
(error "You didn't specify a variable")) |
(error "You didn't specify a variable")) |
350 |
;; Fixme: I think `symbol-file' should be fixed instead. -- fx |
(let ((library (or file (symbol-file variable 'defvar)))) |
|
(let ((library (or file (symbol-file (cons 'defvar variable))))) |
|
351 |
(find-function-search-for-symbol variable 'variable library))) |
(find-function-search-for-symbol variable 'variable library))) |
352 |
|
|
353 |
;;;###autoload |
;;;###autoload |