Fix last change.

2 files changed, 12 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 706e3aa5c20..a56097ef9a9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-09-25  Dave Love  <fx@gnu.org>
+
+        * international/characters.el: Fix last change.
+
 2002-09-23  Dave Love  <fx@gnu.org>
 
         * international/characters.el: Don't set char width of CJK
diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 36a67cb5137..0e8d82bea4b 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -145,6 +145,8 @@
 (modify-syntax-entry ?\』 ")『")
 (modify-syntax-entry ?\〗 ")〖")
 (modify-syntax-entry ?\】 ")【")
+(modify-syntax-entry ?\〚 "(〛")
+(modify-syntax-entry ?\〛 ")〚")
 
 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?c)
 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?|)
@@ -680,21 +682,21 @@
 
   ;; Arrows
   (setq c #x2190)
-  (while (<= c #c21FF)
-    (set-case-syntax-pair c "." tbl)
+  (while (<= c #x21FF)
+    (set-case-syntax c "." tbl)
     (setq c (1+ c)))
   ;; Mathematical Operators
   (while (<= c #x22FF)
-    (set-case-syntax-pair c "." tbl)
+    (set-case-syntax c "." tbl)
     (setq c (1+ c)))
   ;; Miscellaneous Technical
   (while (<= c #x23FF)
-    (set-case-syntax-pair c "." tbl)
+    (set-case-syntax c "." tbl)
     (setq c (1+ c)))
   ;; Control Pictures
   (while (<= c #x243F)
-    (set-case-syntax-pair c "_" tbl)
-    (set c (1+ c)))
+    (set-case-syntax c "_" tbl)
+    (setq c (1+ c)))
 
   ;; Circled Latin
   (setq c #x24b6)