Function: read-face-font

read-face-font is a byte-compiled function defined in faces.el.gz.

Signature

(read-face-font FACE &optional FRAME)

Documentation

Read and return the string name of the font for FACE on FRAME.

If optional argument FRAME is nil or omitted, use the selected frame.

Source Code

;; Defined in /usr/src/emacs/lisp/faces.el.gz
(defun read-face-font (face &optional frame)
  "Read and return the string name of the font for FACE on FRAME.
If optional argument FRAME is nil or omitted, use the selected frame."
  (let ((completion-ignore-case t))
    (completing-read (format-message
                      "Set font attributes of face `%s' from font: " face)
		     (append (fontset-list) (x-list-fonts "*" nil frame)))))