# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1080389152 0
# Node ID 07df3c30a31c522412cc8198a7e46f3f535a33be
# Parent  2d2bc1fc7db52762205406c09b1786b7f2291a79
(woman-change-fonts): Rename local variable
woman-font-alist to font-alist to avoid a compiler warning.

diff -r 2d2bc1fc7db5 -r 07df3c30a31c lisp/woman.el
--- 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: