Function: make-face

make-face is an interactive and byte-compiled function defined in faces.el.gz.

Signature

(make-face FACE)

Documentation

Define a new face with name FACE, a symbol.

Do not call this directly from Lisp code; use defface instead.

If FACE is already known as a face, leave it unmodified. Return FACE.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/faces.el.gz
(defun make-face (face)
  "Define a new face with name FACE, a symbol.
Do not call this directly from Lisp code; use `defface' instead.

If FACE is already known as a face, leave it unmodified.  Return FACE."
  (interactive (list (read-from-minibuffer
		      "Make face: " nil nil t 'face-name-history)))
  (unless (facep face)
    ;; Make frame-local faces (this also makes the global one).
    (dolist (frame (frame-list))
      (internal-make-lisp-face face frame))
    ;; Add the face to the face menu.
    (when (fboundp 'facemenu-add-new-face)
      (facemenu-add-new-face face))
    ;; Define frame-local faces for all frames from X resources.
    (make-face-x-resource-internal face))
  face)