Mercurial > emacs
changeset 54604:07df3c30a31c
(woman-change-fonts): Rename local variable
woman-font-alist to font-alist to avoid a compiler warning.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 27 Mar 2004 12:05:52 +0000 |
| parents | 2d2bc1fc7db5 |
| children | 7830fa922e7e |
| files | lisp/woman.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/woman.el Sat Mar 27 11:54:40 2004 +0000 +++ b/lisp/woman.el Sat Mar 27 12:05:52 2004 +0000 @@ -3239,7 +3239,7 @@ ;; 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 @@ ;; 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: