# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1164602584 0
# Node ID 5b24bb105d42d4e99097c9c1b314e2a5e72e8ae4
# Parent  b3c13217d55b0738ada5affd6af14ff78a09aca1
(font-encoding-alist): Add gb18030.
(setup-default-fontset): Likewise.
(x-pixel-size-width-font-regexp, vertical-centering-font-regexp):
Add gbk and gb18030.
(charset-script-alist): Likewise.

diff -r b3c13217d55b -r 5b24bb105d42 lisp/international/fontset.el
--- a/lisp/international/fontset.el	Mon Nov 27 04:40:25 2006 +0000
+++ b/lisp/international/fontset.el	Mon Nov 27 04:43:04 2006 +0000
@@ -50,6 +50,7 @@
 	("iso8859-15$" . iso-8859-15)
 	("gb2312.1980" . chinese-gb2312)
 	("gbk" . chinese-gbk)
+	("gb18030" . gb18030)
 	("jisx0208.1978" . japanese-jisx0208-1978)
 	("jisx0208" . japanese-jisx0208)
 	("jisx0201" . jisx0201)
@@ -306,6 +307,7 @@
 	  (nil . "CNS11643.1992-6")
 	  (nil . "CNS11643.1992-7")
 	  (nil . "gbk-0")
+	  (nil . "gb18030")
 	  (nil . "JISX0213.2000-1")
 	  (nil . "JISX0213.2000-2")
 	  (nil . "JISX0213.2004-1"))
@@ -323,6 +325,7 @@
 	       (nil . "CNS11643.1992-6")
 	       (nil . "CNS11643.1992-7")
 	       (nil . "gbk-0")
+	       (nil . "gb18030")
 	       (nil . "JISX0213.2000-1")
 	       (nil . "JISX0213.2000-2"))
 
@@ -363,6 +366,8 @@
 
      ;; Fallback fonts
      (nil (nil . "gb2312.1980")
+	  (nil . "gbk-0")
+	  (nil . "gb18030")
 	  (nil . "jisx0208")
 	  (nil . "ksc5601.1987")
 	  (nil . "CNS11643.1992-1")
@@ -515,11 +520,11 @@
 
 ;; Setting for suppressing XLoadQueryFont on big fonts.
 (setq x-pixel-size-width-font-regexp
-      "gb2312\\|jisx0208\\|ksc5601\\|cns11643\\|big5")
+      "gb2312\\|gbk\\|gb18030\\|jisx0208\\|ksc5601\\|cns11643\\|big5")
 
 ;; These fonts require vertical centering.
 (setq vertical-centering-font-regexp
-      "gb2312\\|jisx0208\\|jisx0212\\|ksc5601\\|cns11643\\|big5")
+      "gb2312\\|gbk\\|gb18030\\|jisx0208\\|jisx0212\\|ksc5601\\|cns11643\\|big5")
 
 ;; CDAC fonts are actually smaller than their design sizes.
 (setq face-font-rescale-alist
@@ -723,6 +728,11 @@
     (katakana-jisx0201 . kana)
     (chinese-gb2312 . han)
     (chinese-gbk . han)
+    (gb18030-2-byte . han)
+    (gb18030-4-byte-bmp . han)
+    (gb18030-4-byte-ext-1 . han)
+    (gb18030-4-byte-ext-2 . han)
+    (gb18030-4-byte-smp . han)
     (chinese-big5-1 . han)
     (chinese-big5-2 . han)
     (chinese-cns11643-1 . han)