# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1114143522 0
# Node ID 4eded3eec51214bf68f7ed9a7f9bc657a98acc6f
# Parent  04a655b49105fd3def23dfe5a58510a6db94eca8
(create-fontset-from-mac-roman-font): Fix previous change.

diff -r 04a655b49105 -r 4eded3eec512 lisp/term/mac-win.el
--- a/lisp/term/mac-win.el	Fri Apr 22 04:03:17 2005 +0000
+++ b/lisp/term/mac-win.el	Fri Apr 22 04:18:42 2005 +0000
@@ -1362,9 +1362,8 @@
 It returns a name of the created fontset."
   (or resolved-font
       (setq resolved-font (x-resolve-font-name font)))
-  (let* ((xlfd-fields (x-decompose-font-name resolved-font))
-	 (base-family (aref (x-decompose-font-name ascii-font)
-			    xlfd-regexp-family-subnum)))
+  (let ((base-family (aref (x-decompose-font-name resolved-font)
+			   xlfd-regexp-family-subnum)))
     (if (string= base-family "*")
 	(setq base-family nil))
     (new-fontset fontset-name (list (cons 'ascii resolved-font)))