Seiji Zenitani
zenit****@users*****
2005年 11月 24日 (木) 23:34:42 JST
Index: CarbonEmacsPackage/GPL/mac/fixed-width-fontset.el
diff -u CarbonEmacsPackage/GPL/mac/fixed-width-fontset.el:1.3 CarbonEmacsPackage/GPL/mac/fixed-width-fontset.el:1.4
--- CarbonEmacsPackage/GPL/mac/fixed-width-fontset.el:1.3 Sat Nov 19 11:28:15 2005
+++ CarbonEmacsPackage/GPL/mac/fixed-width-fontset.el Thu Nov 24 23:34:42 2005
@@ -100,7 +100,7 @@
(frm-font (frame-parameter frame 'font))
(def-font (cdr (assoc 'font default-frame-alist)))
(fontset (or init-font frm-font def-font "fontset-default"))
- (asc (if (fontset-name-p fontset) (fontset-font fontset ?a) fontset))
+ (asc (if (x-list-fonts fontset) fontset (fontset-font fontset ?a)))
(size (aref (x-decompose-font-name asc) xlfd-regexp-pixelsize-subnum)))
(dolist (elt fixed-width-get-scale-alist)
(let* ((font (car elt))