Fix syntaxes of gb2312 and big5.

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 23c38985ac786f01e56c9b7cd0c33bf4a9b93626..2dc47b7861cc009bc1e609177c50ea4ec17647b0 100644 (file)
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -140,6 +140,9 @@
 (modify-syntax-entry ?\\e$A!:\e(B "(\e$A!;\e(B")
 (modify-syntax-entry ?\\e$A!<\e(B "(\e$A!=\e(B")
 (modify-syntax-entry ?\\e$A!>\e(B "(\e$A!?\e(B")
+(modify-syntax-entry ?\\e$A#(\e(B "(\e$A#)\e(B")
+(modify-syntax-entry ?\\e$A#{\e(B "(\e$A#}\e(B")
+(modify-syntax-entry ?\\e$A#[\e(B "(\e$A#]\e(B")
 (modify-syntax-entry ?\\e$A!3\e(B ")\e$A!2\e(B")
 (modify-syntax-entry ?\\e$A!5\e(B ")\e$A!4\e(B")
 (modify-syntax-entry ?\\e$A!7\e(B ")\e$A!6\e(B")
@@ -147,6 +150,9 @@
 (modify-syntax-entry ?\\e$A!;\e(B ")\e$A!:\e(B")
 (modify-syntax-entry ?\\e$A!=\e(B ")\e$A!<\e(B")
 (modify-syntax-entry ?\\e$A!?\e(B ")\e$A!>\e(B")
+(modify-syntax-entry ?\\e$A#)\e(B ")\e$A#(\e(B")
+(modify-syntax-entry ?\\e$A#}\e(B ")\e$A#{\e(B")
+(modify-syntax-entry ?\\e$A#]\e(B ")\e$A#[\e(B")
 ;; Unicode equivalents of above
 (modify-syntax-entry ?\\e$,2=T\e(B "(\e$,2=U\e(B")
 (modify-syntax-entry ?\\e$,2=H\e(B "(\e$,2=I\e(B")
@@ -163,6 +169,10 @@
 (modify-syntax-entry ?\\e$,2=W\e(B ")\e$,2=V\e(B")
 (modify-syntax-entry ?\\e$,2=Q\e(B ")\e$,2=P\e(B")
 
+(let ((chars "\e$A#,!"!##.!$#;#:#?#!!C!-!'#|#_!.!/!0!1#"!e#`!d\e(B"))
+  (dotimes (i (length chars))
+    (modify-syntax-entry (aref chars i) ".")))
+
 (modify-category-entry (make-char 'chinese-gb2312) ?c)
 (modify-category-entry (make-char 'chinese-gb2312) ?\|)
 (modify-category-entry (make-char 'chinese-gb2312 35) ?A)
@@ -177,6 +187,32 @@
 
 ;; Chinese character set (BIG5)
 
+
+
+(let ((from (decode-big5-char #xA141))
+      (to (decode-big5-char #xA15D)))
+  (while (< from to)
+    (modify-syntax-entry from ".")
+    (setq from (1+ from))))
+(let ((from (decode-big5-char #xA1A5))
+      (to (decode-big5-char #xA1AD)))
+  (while (< from to)
+    (modify-syntax-entry from ".")
+    (setq from (1+ from))))
+(let ((from (decode-big5-char #xA1AD))
+      (to (decode-big5-char #xA2AF)))
+  (while (< from to)
+    (modify-syntax-entry from "_")
+    (setq from (1+ from))))
+
+(let ((parens "\e$(0!>!?!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_!`!a!b!c\e(B")
+      open close)
+  (dotimes (i (/ (length parens) 2))
+    (setq open (aref parens (* i 2))
+         close (aref parens (1+ (* i 2))))
+    (modify-syntax-entry open (format "(%c" close))
+    (modify-syntax-entry close (format ")%c" open))))
+
 (let ((generic-big5-1-char (make-char 'chinese-big5-1))
       (generic-big5-2-char (make-char 'chinese-big5-2)))
 ;;   (modify-syntax-entry generic-big5-1-char "w")