comparison lisp/emacs-lisp/find-func.el @ 69169:10a4ff23378e

(find-library-suffixes): Use `get-load-suffixes' instead of `load-suffixes'. (find-library-name): Use `load-file-rep-suffixes' instead of '("").

69168:6e701396a0ec

;;; Functions:

(defun find-library-suffixes ()
  (let ((suffixes nil))
    (dolist (suffix load-suffixes (nreverse suffixes))
      (unless (string-match "elc" suffix) (push suffix suffixes)))))

(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)
		   (append (find-library-suffixes) '("")))
      (error "Can't find library %s" library)))

(defvar find-function-C-source-directory
  (let ((dir (expand-file-name "src" source-directory)))
    (when (and (file-directory-p dir) (file-readable-p dir))

69169:10a4ff23378e

;;; Functions:

(defun find-library-suffixes ()
  (let ((suffixes nil))
    (dolist (suffix (get-load-suffixes) (nreverse suffixes))
      (unless (string-match "elc" suffix) (push suffix suffixes)))))

(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)
		   (append (find-library-suffixes) load-file-rep-suffixes))
      (error "Can't find library %s" library)))

(defvar find-function-C-source-directory
  (let ((dir (expand-file-name "src" source-directory)))
    (when (and (file-directory-p dir) (file-readable-p dir))