On Sat, Dec 15, 2001 at 01:09:30PM -0800, i wrote:
* how should we fix this?
;; a suggestion
(let* ((fbuff (get-file-buffer (path-to library-of-function)))
(tempbuff (and fbuff
(make-indirect-buffer fbuff
(generate-new-buffer-name " find-function")))))
(if (not fbuff)
(find-function-as-usual)
(find-function-in-buffer tempbuff)
(let ((pt (point)))
(set-buffer fbuff)
(goto-char pt))
(kill-buffer tempbuff)))
sometime in `find-function-in-buffer', (widen) would have to be
evaluated, before attempting to find the function.