Function: woman-select-symbol-fonts

woman-select-symbol-fonts is a byte-compiled function defined in woman.el.gz.

Signature

(woman-select-symbol-fonts FONTS)

Documentation

Select symbol fonts from a list FONTS of font name strings.

Source Code

;; Defined in /usr/src/emacs/lisp/woman.el.gz
(defun woman-select-symbol-fonts (fonts)
  "Select symbol fonts from a list FONTS of font name strings."
  (let (symbol-fonts)
    ;; With NTEmacs 20.5, the PATTERN option to `x-list-fonts' does
    ;; not seem to work and fonts may be repeated, so ...
    (dolist (font fonts)
      (and (string-match-p "-Symbol-" font)
	   (not (member font symbol-fonts))
	   (setq symbol-fonts (cons font symbol-fonts))))
    symbol-fonts))