diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2004-03-27 12:07:09 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2004-03-27 12:07:09 +0000 |
| commit | 692feebddfe2c4b0c9b48e7ea31a1362daf071a4 (patch) | |
| tree | 7a2d6ebe6ee8548a3433c97e202dba2088b8c337 /lisp/woman.el | |
| parent | 4d82882bb6f8bf596650177fbe4594ee1a2ce7a0 (diff) | |
| download | emacs-692feebddfe2c4b0c9b48e7ea31a1362daf071a4.tar.gz | |
(woman-change-fonts): Rename local variable
woman-font-alist to font-alist to avoid a compiler warning.
Diffstat (limited to 'lisp/woman.el')
| -rw-r--r-- | lisp/woman.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/woman.el b/lisp/woman.el index d25f60f58c1..d69c631f27b 100644 --- a/lisp/woman.el +++ b/lisp/woman.el @@ -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: |