From 6ca54a3a6fa9a080c1f97e323c7f4216e37bb9e3 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 25 Sep 2002 00:00:33 +0000 Subject: [PATCH] Fix last change. --- lisp/ChangeLog | 4 ++++ lisp/international/characters.el | 14 ++++++++------ 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 + + * international/characters.el: Fix last change. + 2002-09-23 Dave Love * 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) -- 2.11.4.GIT