Commit 692feebd authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(woman-change-fonts): Rename local variable

woman-font-alist to font-alist to avoid a compiler warning.
parent 4d82882b
2004-03-27 Francis J. Wright <F.J.Wright@qmul.ac.uk>
* woman.el (woman-change-fonts): Rename local variable
woman-font-alist to font-alist to avoid a compiler warning.
2004-03-27 Dave Love <fx@gnu.org>
* emacs-lisp/rx.el (rx): Doc fix.
......
......@@ -3239,7 +3239,7 @@ If optional arg CONCAT is non-nil then join arguments."
;; Paragraph .LP/PP/HP/IP/TP and font .B/.BI etc. macros reset font.
;; Should .SH/.SS reset font?
;; Font size setting macros (?) should reset font.
(let ((woman-font-alist woman-font-alist) ; for local updating
(let ((font-alist woman-font-alist) ; for local updating
(previous-pos (point))
(previous-font 'default)
(current-font 'default))
......@@ -3270,15 +3270,15 @@ If optional arg CONCAT is non-nil then join arguments."
;; Get font name:
(or font
(let ((fontstring (match-string 0)))
(setq font (assoc fontstring woman-font-alist)
;; NB: woman-font-alist contains VARIABLE NAMES.
(setq font (assoc fontstring font-alist)
;; NB: font-alist contains VARIABLE NAMES.
font (if font
(cdr font)
(WoMan-warn "Unknown font %s." fontstring)
;; Output this message once only per call ...
(setq woman-font-alist
(setq font-alist
(cons (cons fontstring 'woman-unknown-face)
woman-font-alist))
font-alist))
'woman-unknown-face)
)))
;; Delete font control line or escape sequence:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment