Mercurial > emacs

changeset 90382:1ff941930e18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cancel unnecessary sync code for HEAD.
author Kenichi Handa <handa@m17n.org>
date Sun, 09 Apr 2006 01:43:12 +0000
parents 65ca8fb66a0d
children ab20fb198dda
files lisp/international/characters.el
diffstat 1 files changed, 0 insertions(+), 22 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/characters.el	Sun Apr 09 00:38:22 2006 +0000
+++ b/lisp/international/characters.el	Sun Apr 09 01:43:12 2006 +0000
@@ -135,17 +135,6 @@
 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?Y #x2721 #x277E)
 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?C #x3021 #x7E7E)
 
-(let ((tbl (standard-case-table)))
-  (dotimes (i 26)
-    (set-case-syntax-pair (make-char 'chinese-gb2312 #x23 (+ #x41 i))
-			  (make-char 'chinese-gb2312 #x23 (+ #x61 i)) tbl))
-  (dotimes (i 24)
-    (set-case-syntax-pair (make-char 'chinese-gb2312 #x26 (+ #x21 i))
-			  (make-char 'chinese-gb2312 #x26 (+ #x41 i)) tbl))
-  (dotimes (i 33)
-    (set-case-syntax-pair (make-char 'chinese-gb2312 #x27 (+ #x21 i))
-			  (make-char 'chinese-gb2312 #x27 (+ #x51 i)) tbl)))
-
 ;; Chinese character set (BIG5)
 
 (map-charset-chars #'modify-category-entry 'big5 ?c)
@@ -436,17 +425,6 @@
       (if lc (modify-category-entry lc ?v)))
     (setq i (1+ i))))
 
-(let ((tbl (standard-case-table)))
-  (dotimes (i 22)
-    (set-case-syntax-pair (decode-big5-char (+ #xA2CF i))
-			  (decode-big5-char (+ #xA2CF i 26)) tbl))
-  (dotimes (i 4)
-    (set-case-syntax-pair (decode-big5-char (+ #xA2E4 i))
-			  (decode-big5-char (+ #xA340 i)) tbl))
-  (dotimes (i 24)
-    (set-case-syntax-pair (decode-big5-char (+ #xA344 i))
-			  (decode-big5-char (+ #xA344 i 24)) tbl)))
-
 
 ;; Latin