Function: woman-non-underline-faces

woman-non-underline-faces is a byte-compiled function defined in woman.el.gz.

Signature

(woman-non-underline-faces)

Documentation

Prepare non-underlined versions of underlined faces.

Source Code

;; Defined in /usr/src/emacs/lisp/woman.el.gz
(defun woman-non-underline-faces ()
  "Prepare non-underlined versions of underlined faces."
  (let ((face-list (face-list)))
    (dolist (face face-list)
      (let ((face-name (symbol-name face)))
	(if (and (string-match-p "\\`woman-" face-name)
		 (face-underline-p face))
	    (let ((face-no-ul (intern (concat face-name "-no-ul"))))
	      (copy-face face face-no-ul)
	      (set-face-underline face-no-ul nil)))))))