Function: buffer-face-mode-invoke

buffer-face-mode-invoke is a byte-compiled function defined in face-remap.el.gz.

Signature

(buffer-face-mode-invoke SPECS ARG &optional INTERACTIVE)

Documentation

Enable or disable buffer-face-mode(var)/buffer-face-mode(fun) using face specs SPECS.

ARG controls whether the mode is enabled or disabled, and is interpreted in the usual manner for minor-mode commands.

SPECS can be any value suitable for a face text property, including a face name, a plist of face attributes and values, or a list of faces.

If INTERACTIVE is non-nil, display a message describing the result.

This is a wrapper function which calls buffer-face-set or buffer-face-toggle (depending on ARG), and prints a status message in the echo area. In many cases one of those functions may be more appropriate.

Source Code

;; Defined in /usr/src/emacs/lisp/face-remap.el.gz
(defun buffer-face-mode-invoke (specs arg &optional interactive)
  "Enable or disable `buffer-face-mode' using face specs SPECS.
ARG controls whether the mode is enabled or disabled, and is
interpreted in the usual manner for minor-mode commands.

SPECS can be any value suitable for a `face' text property,
including a face name, a plist of face attributes and values,
or a list of faces.

If INTERACTIVE is non-nil, display a message describing the
result.

This is a wrapper function which calls `buffer-face-set' or
`buffer-face-toggle' (depending on ARG), and prints a status
message in the echo area.  In many cases one of those functions
may be more appropriate."
  (let ((last-message (current-message)))
    (if (or (eq arg 'toggle) (not arg))
	(buffer-face-toggle specs)
      (buffer-face-set (and (> (prefix-numeric-value arg) 0) specs)))
    (when interactive
      (unless (and (current-message)
		   (not (equal last-message (current-message))))
	(message "Buffer-Face mode %sabled"
		 (if buffer-face-mode "en" "dis"))))))