Function: load-history-filename-element

load-history-filename-element is a byte-compiled function defined in subr.el.gz.

Signature

(load-history-filename-element FILE-REGEXP)

Documentation

Get the first elt of load-history whose car matches FILE-REGEXP.

Return nil if there isn't one.

Source Code

;; Defined in /usr/src/emacs/lisp/subr.el.gz
(defun load-history-filename-element (file-regexp)
  "Get the first elt of `load-history' whose car matches FILE-REGEXP.
Return nil if there isn't one."
  (let* ((loads load-history)
	 (load-elt (and loads (car loads))))
    (save-match-data
      (while (and loads
		  (or (null (car load-elt))
		      (not (string-match file-regexp (car load-elt)))))
	(setq loads (cdr loads)
	      load-elt (and loads (car loads)))))
    load-elt))