diff options
| author | Kenichi Handa <handa@m17n.org> | 2006-04-09 01:43:12 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2006-04-09 01:43:12 +0000 |
| commit | 33cd7d23cd6b6b37e4cd0d1ef7337d3750232b63 (patch) | |
| tree | bbe4d3ca64978c95acd1a216ba03695cb0f578fa /lisp/international/characters.el | |
| parent | 49d395cd57e646162e7f646a8561a416abacac82 (diff) | |
| download | emacs-33cd7d23cd6b6b37e4cd0d1ef7337d3750232b63.tar.gz | |
Cancel unnecessary sync code for
HEAD.
Diffstat (limited to 'lisp/international/characters.el')
| -rw-r--r-- | lisp/international/characters.el | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/lisp/international/characters.el b/lisp/international/characters.el index 61490a3a677..9b2b244d6ea 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -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 |