*** emacs-lisp/find-func.el.~1.87.~	Fri Jan 25 18:39:20 2008
--- emacs-lisp/find-func.el	Sat Jan 26 19:14:00 2008
***************
*** 239,246 ****
      (setq symbol (get symbol 'definition-name)))
    (if (string-match "\\`src/\\(.*\\.c\\)\\'" library)
        (find-function-C-source symbol (match-string 1 library) type)
!     (if (string-match "\\.el\\(c\\)\\'" library)
! 	(setq library (substring library 0 (match-beginning 1))))
      (let* ((filename (find-library-name library))
  	   (regexp-symbol (cdr (assq type find-function-regexp-alist))))
        (with-current-buffer (find-file-noselect filename)
--- 239,248 ----
      (setq symbol (get symbol 'definition-name)))
    (if (string-match "\\`src/\\(.*\\.c\\)\\'" library)
        (find-function-C-source symbol (match-string 1 library) type)
!     (when (string-match "\\.el\\(c\\)\\'" library)
!       (setq library (substring library 0 (match-beginning 1))))
!     (when (string-match "\\.emacs\\(.el\\)" library)
!       (setq library (substring library 0 (match-beginning 1))))
      (let* ((filename (find-library-name library))
  	   (regexp-symbol (cdr (assq type find-function-regexp-alist))))
        (with-current-buffer (find-file-noselect filename)