Function: woman-set-face

woman-set-face is a byte-compiled function defined in woman.el.gz.

Signature

(woman-set-face FROM TO FACE)

Documentation

Set the face of the text from FROM to TO to face FACE.

Ignore the default face and underline only word characters.

Source Code

;; Defined in /usr/src/emacs/lisp/woman.el.gz
(defun woman-set-face (from to face)
  "Set the face of the text from FROM to TO to face FACE.
Ignore the default face and underline only word characters."
  (or (eq face 'default)		; ignore
      (not woman-fontify)
      (if (face-underline-p face)
	  (save-excursion
	    (let ((face-no-ul (intern (concat (symbol-name face) "-no-ul"))))
	      (goto-char from)
	      (while (< (point) to)
		(skip-syntax-forward "w" to)
		(put-text-property from (point) 'face face)
		(setq from (point))
		(skip-syntax-forward "^w" to)
		(put-text-property from (point) 'face face-no-ul)
		(setq from (point))
		)))
	(put-text-property from to 'face face))))