Mercurial > emacs

changeset 89121:d7638593beca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix last change.
author Dave Love <fx@gnu.org>
date Tue, 24 Sep 2002 23:59:52 +0000
parents ef1d732a0db4
children 92312a6e80d1
files lisp/international/characters.el
diffstat 1 files changed, 8 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/characters.el	Mon Sep 23 22:21:46 2002 +0000
+++ b/lisp/international/characters.el	Tue Sep 24 23:59:52 2002 +0000
@@ -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)