Setup syntaxes for more parentheses Unicode characters.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3e20ba345100b6a3d8d0547c97eed48fc06b3d31..3a4e6327bef87f675de026fdda7b4aef460dd1a3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,7 @@
-2004-03-23  Kenichi Handa  <handa@m17n.org>
+2004-03-23  Kenichi Handa  <handa@etlken2>
+
+       * international/characters.el: Setup syntaxes for more parentheses
+       Unicode characters.
 
        * international/mule-cmds.el (select-safe-coding-system): Merge
        coding-system and auto-cs before comparing them.

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 5cd6f358da8e9e576208c43a0ba98296cd6f98f8..301d8ea5454757c5c4f069619f49759d0f4bf6ac 100644 (file)
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -153,21 +153,6 @@
 (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")
-(modify-syntax-entry ?\\e$,2=J\e(B "(\e$,2=K\e(B")
-(modify-syntax-entry ?\\e$,2=L\e(B "(\e$,2=M\e(B")
-(modify-syntax-entry ?\\e$,2=N\e(B "(\e$,2=O\e(B")
-(modify-syntax-entry ?\\e$,2=V\e(B "(\e$,2=W\e(B")
-(modify-syntax-entry ?\\e$,2=P\e(B "(\e$,2=Q\e(B")
-(modify-syntax-entry ?\\e$,2=U\e(B ")\e$,2=T\e(B")
-(modify-syntax-entry ?\\e$,2=I\e(B ")\e$,2=H\e(B")
-(modify-syntax-entry ?\\e$,2=K\e(B ")\e$,2=J\e(B")
-(modify-syntax-entry ?\\e$,2=M\e(B ")\e$,2=L\e(B")
-(modify-syntax-entry ?\\e$,2=O\e(B ")\e$,2=N\e(B")
-(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))
@@ -187,8 +172,6 @@
 
 ;; Chinese character set (BIG5)
 
-
-
 (let ((from (decode-big5-char #xA141))
       (to (decode-big5-char #xA15D)))
   (while (< from to)
@@ -1141,6 +1124,67 @@
 
   ;; Fixme: syntax for symbols &c
   )
+
+(let ((pairs
+       '("\e$,1sEsF\e(B"                         ; U+2045 U+2046
+        "\e$,1s}s~\e(B"                          ; U+207D U+207E
+        "\e$,1t-t.\e(B"                          ; U+208D U+208E
+        "\e$,1zhzi\e(B"                          ; U+2308 U+2309
+        "\e$,1zjzk\e(B"                          ; U+230A U+230B
+        "\e$,1{){*\e(B"                          ; U+2329 U+232A
+        "\e$,1|T|U\e(B"                          ; U+23B4 U+23B5
+        "\e$,2&H&I\e(B"                          ; U+2768 U+2769
+        "\e$,2&J&K\e(B"                          ; U+276A U+276B
+        "\e$,2&L&M\e(B"                          ; U+276C U+276D
+        "\e$,2&P&Q\e(B"                          ; U+2770 U+2771
+        "\e$,2&R&S\e(B"                          ; U+2772 U+2773
+        "\e$,2&T&U\e(B"                          ; U+2774 U+2775
+        "\e$,2'f'g\e(B"                          ; U+27E6 U+27E7
+        "\e$,2'h'i\e(B"                          ; U+27E8 U+27E9
+        "\e$,2'j'k\e(B"                          ; U+27EA U+27EB
+        "\e$,2,#,$\e(B"                          ; U+2983 U+2984
+        "\e$,2,%,&\e(B"                          ; U+2985 U+2986
+        "\e$,2,',(\e(B"                          ; U+2987 U+2988
+        "\e$,2,),*\e(B"                          ; U+2989 U+298A
+        "\e$,2,+,,\e(B"                          ; U+298B U+298C
+        "\e$,2,-,.\e(B"                          ; U+298D U+298E
+        "\e$,2,/,0\e(B"                          ; U+298F U+2990
+        "\e$,2,1,2\e(B"                          ; U+2991 U+2992
+        "\e$,2,3,4\e(B"                          ; U+2993 U+2994
+        "\e$,2,5,6\e(B"                          ; U+2995 U+2996
+        "\e$,2,7,8\e(B"                          ; U+2997 U+2998
+        "\e$,2-<-=\e(B"                          ; U+29FC U+29FD
+        "\e$,2=H=I\e(B"                          ; U+3008 U+3009
+        "\e$,2=J=K\e(B"                          ; U+300A U+300B
+        "\e$,2=L=M\e(B"                          ; U+300C U+300D
+        "\e$,2=N=O\e(B"                          ; U+300E U+300F
+        "\e$,2=P=Q\e(B"                          ; U+3010 U+3011
+        "\e$,2=T=U\e(B"                          ; U+3014 U+3015
+        "\e$,2=V=W\e(B"                          ; U+3016 U+3017
+        "\e$,2=X=Y\e(B"                          ; U+3018 U+3019
+        "\e$,2=Z=[\e(B"                          ; U+301A U+301B
+        "\e$,3m~m\7f\e(B"                          ; U+FD3E U+FD3F
+        "\e$,3pUpV\e(B"                          ; U+FE35 U+FE36
+        "\e$,3pWpX\e(B"                          ; U+FE37 U+FE38
+        "\e$,3pYpZ\e(B"                          ; U+FE39 U+FE3A
+        "\e$,3p[p\\e(B"                          ; U+FE3B U+FE3C
+        "\e$,3p]p^\e(B"                          ; U+FE3D U+FE3E
+        "\e$,3p_p`\e(B"                          ; U+FE3F U+FE40
+        "\e$,3papb\e(B"                          ; U+FE41 U+FE42
+        "\e$,3pcpd\e(B"                          ; U+FE43 U+FE44
+        "\e$,3pypz\e(B"                          ; U+FE59 U+FE5A
+        "\e$,3p{p|\e(B"                          ; U+FE5B U+FE5C
+        "\e$,3p}p~\e(B"                          ; U+FE5D U+FE5E
+        "\e$,3rhri\e(B"                          ; U+FF08 U+FF09
+        "\e$,3s;s=\e(B"                          ; U+FF3B U+FF3D
+        "\e$,3s[s]\e(B"                          ; U+FF5B U+FF5D
+        "\e$,3s_s`\e(B"                          ; U+FF5F U+FF60
+        "\e$,3sbsc\e(B"                          ; U+FF62 U+FF63
+        )))
+  (dolist (elt pairs)
+    (modify-syntax-entry (aref elt 0) (string ?\( (aref elt 1)))
+    (modify-syntax-entry (aref elt 1) (string ?\) (aref elt 0)))))
+
 \f
 ;;; Setting word boundary.