[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/find-func.el

[Romain Francoise]

Index: emacs/lisp/emacs-lisp/find-func.el
diff -c emacs/lisp/emacs-lisp/find-func.el:1.62 
emacs/lisp/emacs-lisp/find-func.el:1.63
*** emacs/lisp/emacs-lisp/find-func.el:1.62     Fri Oct 21 17:22:25 2005
--- emacs/lisp/emacs-lisp/find-func.el  Tue Oct 25 19:25:23 2005
***************
*** 142,150 ****
  
  (defun find-library-name (library)
    "Return the absolute file name of the Lisp source of LIBRARY."
!   ;; If the library is byte-compiled, try to find a source library by
!   ;; the same name.
!   (if (string-match "\\.el\\(c\\(\\..*\\)?\\)\\'" library)
        (setq library (replace-match "" t t library)))
    (or (locate-file library
                   (or find-function-source-path load-path)
--- 142,150 ----
  
  (defun find-library-name (library)
    "Return the absolute file name of the Lisp source of LIBRARY."
!   ;; Strip off the extension to take advantage of library suffixes in
!   ;; the call to `locate-file'.
!   (if (string-match "\\.el\\(c\\(\\..*\\)?\\)?\\'" library)
        (setq library (replace-match "" t t library)))
    (or (locate-file library
                   (or find-function-source-path load-path)