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.