[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/find-func.el
From: |
Romain Francoise |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/find-func.el |
Date: |
Tue, 25 Oct 2005 15:25:24 -0400 |
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)