Function: custom-face--font-completion

custom-face--font-completion is a byte-compiled function defined in cus-edit.el.gz.

Signature

(custom-face--font-completion STRING PRED ACTION)

Source Code

;; Defined in /usr/src/emacs/lisp/cus-edit.el.gz
(defalias 'custom-face--font-completion
  (let ((lastlist nil)
        (lasttime nil)
        (lastframe nil))
    (completion-table-case-fold
     (completion-table-dynamic
      (lambda (_string)
        ;; Flush the cache timeout after a while.
        (let ((time (float-time)))
         (if (and lastlist (eq (selected-frame) lastframe)
                  (> custom-face--font-cache-timeout (- time lasttime)))
             lastlist
           ;; (message "last list time: %s" (if lasttime (- time lasttime)))
           (setq lasttime time)
           (setq lastframe (selected-frame))
           (setq lastlist
                 (nconc (mapcar #'car face-font-family-alternatives)
                        (font-family-list))))))))))