*** find-func.el.~1.83.~	Wed Oct 31 13:39:44 2007
--- find-func.el	Thu Jan 24 08:51:58 2008
***************
*** 195,205 ****
     (let* ((path (cons (or find-function-source-path load-path)
  		      (find-library-suffixes)))
  	  (def (if (eq (function-called-at-point) 'require)
! 		   (save-excursion
! 		     (backward-up-list)
! 		     (forward-char)
! 		     (backward-sexp -2)
! 		     (thing-at-point 'symbol))
  		 (thing-at-point 'symbol))))
       (when def
         (setq def (and (locate-file-completion def path 'test) def)))
--- 195,207 ----
     (let* ((path (cons (or find-function-source-path load-path)
  		      (find-library-suffixes)))
  	  (def (if (eq (function-called-at-point) 'require)
! 		   (condition-case nil
! 		       (save-excursion
! 			 (backward-up-list)
! 			 (forward-char)
! 			 (backward-sexp -2)
! 			 (thing-at-point 'symbol))
! 		     (error nil))
  		 (thing-at-point 'symbol))))
       (when def
         (setq def (and (locate-file-completion def path 'test) def)))