[macemacsjp-cvs 140] CVS update: fixed-width-fontset

Back to archive index

Takashi Hiromatsu matsu****@users*****
2005年 11月 24日 (木) 20:38:53 JST


Index: fixed-width-fontset/Changelog
diff -u fixed-width-fontset/Changelog:1.7 fixed-width-fontset/Changelog:1.8
--- fixed-width-fontset/Changelog:1.7	Sun Nov 20 22:53:51 2005
+++ fixed-width-fontset/Changelog	Thu Nov 24 20:38:53 2005
@@ -1,3 +1,7 @@
+2005-11-24  Takashi HIROMATSU  <matsu****@users*****>
+
+	* fixed-width-fontset.el (fixed-width-append-factor): bug fixed
+
 2005-11-20  Takashi HIROMATSU  <matsu****@users*****>
 
 	* carbon-font.el (fixed-width-encode-reg-alist): cjk registries
Index: fixed-width-fontset/fixed-width-fontset.el
diff -u fixed-width-fontset/fixed-width-fontset.el:1.6 fixed-width-fontset/fixed-width-fontset.el:1.7
--- fixed-width-fontset/fixed-width-fontset.el:1.6	Thu Nov 17 23:00:52 2005
+++ fixed-width-fontset/fixed-width-fontset.el	Thu Nov 24 20:38:53 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))


macemacsjp-cvs メーリングリストの案内
Back to archive index