Function: cperl-facemenu-add-face-function

cperl-facemenu-add-face-function is a byte-compiled function defined in cperl-mode.el.gz.

Signature

(cperl-facemenu-add-face-function FACE END)

Documentation

A callback to process user-initiated font-change requests.

Translates FACE which is one of bold, italic, and bold-italic to insertion of corresponding POD directives, and underline to C<> POD directive.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cperl-mode.el.gz
(defun cperl-facemenu-add-face-function (face _end)
  "A callback to process user-initiated font-change requests.
Translates FACE which is one of `bold', `italic', and `bold-italic' to
insertion of corresponding POD directives, and `underline' to C<> POD
directive."
  (or (get-text-property (point) 'in-pod)
      (error "Faces can only be set within POD"))
  (setq facemenu-end-add-face (if (eq face 'bold-italic) ">>" ">"))
  (cdr (or (assq face '((bold . "B<")
			(italic . "I<")
			(bold-italic . "B<I<")
			(underline . "C<")))
	   (error "Face %S not configured for cperl-mode"
		  face))))