Show
Ignore:
Timestamp:
11/01/05 07:08:22 (3 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • vendor/emacs-CVS_HEAD/lisp/emacs-lisp/find-func.el

    r3892 r3939  
    142142 
    143143(defun find-library-name (library) 
    144   "Return the full name of the elisp source of LIBRARY." 
    145   ;; If the library is byte-compiled, try to find a source library by 
    146   ;; the same name. 
    147   (if (string-match "\\.el\\(c\\(\\..*\\)?\\)\\'" library) 
     144  "Return the absolute file name of the Lisp source of LIBRARY." 
     145  ;; Strip off the extension to take advantage of library suffixes in 
     146  ;; the call to `locate-file'. 
     147  (if (string-match "\\.el\\(c\\(\\..*\\)?\\)?\\'" library) 
    148148      (setq library (replace-match "" t t library))) 
    149149  (or (locate-file library