Mercurial > emacs

changeset 90150:4eded3eec512

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(create-fontset-from-mac-roman-font): Fix previous change.
author Kenichi Handa <handa@m17n.org>
date Fri, 22 Apr 2005 04:18:42 +0000
parents 04a655b49105
children 290e7282ab7b
files lisp/term/mac-win.el
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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)))