Function: woman1-alt-fonts

woman1-alt-fonts is a byte-compiled function defined in woman.el.gz.

Signature

(woman1-alt-fonts FONTS)

Documentation

Join words using alternating fonts in FONTS, which MUST be a dynamic list.

Source Code

;; Defined in /usr/src/emacs/lisp/woman.el.gz
(defun woman1-alt-fonts (fonts)
  "Join words using alternating fonts in FONTS, which MUST be a dynamic list."
  (nconc fonts fonts)			; circular list!
  (insert (car fonts))
  ;; Return to start of first arg to hide leading control char:
  (save-excursion
    (setq fonts (cdr fonts))
    ;; woman1-unquote is bound in woman1-roff-buffer.
    (woman-forward-arg woman1-unquote 'concat)
    (while (not (eolp))
      (insert (car fonts))
      (setq fonts (cdr fonts))
      (woman-forward-arg woman1-unquote 'concat))
    (insert "\\fR")))