Function: help-fns--autoloaded-p

help-fns--autoloaded-p is a byte-compiled function defined in help-fns.el.gz.

Signature

(help-fns--autoloaded-p FUNCTION FILE)

Documentation

Return non-nil if FUNCTION has previously been autoloaded.

FILE is the file where FUNCTION was probably defined.

Source Code

;; Defined in /usr/src/emacs/lisp/help-fns.el.gz
;; We could use `symbol-file' but this is a wee bit more efficient.
(defun help-fns--autoloaded-p (function file)
  "Return non-nil if FUNCTION has previously been autoloaded.
FILE is the file where FUNCTION was probably defined."
  (let* ((file (file-name-sans-extension (file-truename file)))
	 (load-hist load-history)
	 (target (cons t function))
	 found)
    (while (and load-hist (not found))
      (and (stringp (caar load-hist))
	   (equal (file-name-sans-extension (caar load-hist)) file)
	   (setq found (member target (cdar load-hist))))
      (setq load-hist (cdr load-hist)))
    found))