(woman-change-fonts): Rename local variable

woman-font-alist to font-alist to avoid a compiler warning.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 42329aa043235d525be47cef7dbb1ef94ce6f887..ab3ac98ea9d953264eb1ffdde1b530bc218de45d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/lisp/woman.el b/lisp/woman.el
index d25f60f58c10397a4458b321254ce74501166ab3..d69c631f27ba7f74ecfe5ca5ea61b5a0db270343 100644 (file)
--- 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: