[Emacs-diffs] emacs/lisp/international fontset.el

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   09/06/30 02:16:07

Modified files:
        lisp/international: fontset.el 

Log message:
        (setup-default-fontset): Add CJK fonts
        for symbols and the other miscellaneous characters.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/fontset.el?cvsroot=emacs&r1=1.102&r2=1.103

Patches:
Index: fontset.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/fontset.el,v
retrieving revision 1.102
retrieving revision 1.103
diff -u -b -r1.102 -r1.103
--- fontset.el  19 Jun 2009 01:51:10 -0000      1.102
+++ fontset.el  30 Jun 2009 02:16:07 -0000      1.103
@@ -565,6 +565,20 @@
      (cons (car math-subgroup) (nth 1 math-subgroup))
      (font-spec :registry "iso10646-1" :script (nth 2 math-subgroup))))
 
+  ;; Append CJK fonts for characters other than han, kana, cjk-misc.
+  ;;             CHARSET-REGISTRY  CHARSET            FROM-CODE TO-CODE
+  (let ((list '(("JISX0208.1983-0" japanese-jisx0208  #x2121    #x287E)
+               ("GB2312.1980-0"   chinese-gb2312     #x2121    #x297E)
+               ("BIG5-0"          big5               #xA140    #xA3FE)
+               ("CNS11643.1992-1" chinese-cns11643-1 #x2121    #x427E)
+               ("KSC5601.1987-0"  korean-ksc5601     #x2121    #x2C7E))))
+    (dolist (elt list)
+      (map-charset-chars
+       #'(lambda (range arg)
+          (set-fontset-font "fontset-default" range
+                            (cons nil (car elt)) nil 'append))
+       (nth 1 elt) nil (nth 2 elt) (nth 3 elt))))
+
   ;; Append Unicode fonts.
   ;; This may find fonts with more variants (bold, italic) but which
   ;; don't cover many characters.