changeset 88519:98ec5d812ccc

Set syntax/category for japanese-jisx0208.
author Kenichi Handa <handa@m17n.org>
date Tue, 14 May 2002 23:15:58 +0000
parents 914548535d25
children 380a8808a7b1
files lisp/international/characters.el
diffstat 1 files changed, 18 insertions(+), 20 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/characters.el	Tue May 14 23:15:29 2002 +0000
+++ b/lisp/international/characters.el	Tue May 14 23:15:58 2002 +0000
@@ -477,8 +477,8 @@
 (let ((c #x30a0))
   (while (<= c #x30ff)
     ;; ?K is double width, ?k isn't specified
-    (modify-category-entry (decode-char 'ucs c) ?k)
-    (modify-category-entry (decode-char 'ucs c) ?j)
+    (modify-category-entry (decode-char 'ucs c) ?K)
+    ;;(modify-category-entry (decode-char 'ucs c) ?j)
     (modify-category-entry (decode-char 'ucs c) ?\|) 
     (setq c (1+ c))))
 
@@ -492,19 +492,14 @@
     (setq c (1+ c))))
 
 ;; JISX0208
-;; (modify-syntax-entry (make-char 'japanese-jisx0208) "w")
-;; (modify-syntax-entry (make-char 'japanese-jisx0208 33) "_")
-;; (modify-syntax-entry (make-char 'japanese-jisx0208 34) "_")
-;; (modify-syntax-entry (make-char 'japanese-jisx0208 40) "_")
-;; (let ((chars '(?õ€€› ?õ€€Š ?õ€€‹ ?õ€€’ ?õ€€“ ?õ€€” ?õ€€• ?õ€€– ?õ€€— ?õ€€˜ ?õ€€™ ?õ€€š)))
-;;   (while chars
-;;     (modify-syntax-entry (car chars) "w")
-;;     (setq chars (cdr chars))))
-
 (modify-syntax-entry (cons (decode-char 'japanese-jisx0208 #x2121)
 			   (decode-char 'japanese-jisx0208 #x227E)) "_")
 (modify-syntax-entry (cons (decode-char 'japanese-jisx0208 #x2821)
 			   (decode-char 'japanese-jisx0208 #x287E)) "_")
+(let ((chars '(?õ€€› ?õ€€Š ?õ€€‹ ?õ€€’ ?õ€€“ ?õ€€” ?õ€€• ?õ€€– ?õ€€— ?õ€€˜ ?õ€€™ ?õ€€š)))
+  (dolist (elt chars)
+    (modify-syntax-entry (car chars) "w")
+    (setq chars (cdr chars))))
 (modify-syntax-entry ?\õ€€© "(õ€€ª")
 (modify-syntax-entry ?\õ€€­ "(õ€€®")
 (modify-syntax-entry ?\õ€€¯ "(õ€€°")
@@ -516,15 +511,18 @@
 (modify-syntax-entry ?\õ€€¶ ")õ€€µ")
 (modify-syntax-entry ?\õ€€¸ ")õ€€·")
 
-;; (modify-category-entry (make-char 'japanese-jisx0208 35) ?A)
-;; (modify-category-entry (make-char 'japanese-jisx0208 36) ?H)
-;; (modify-category-entry (make-char 'japanese-jisx0208 37) ?K)
-;; (modify-category-entry (make-char 'japanese-jisx0208 38) ?G)
-;; (modify-category-entry (make-char 'japanese-jisx0208 39) ?Y)
-;; (let ((row 48))
-;;   (while (< row 127)
-;;     (modify-category-entry (make-char 'japanese-jisx0208 row) ?C)
-;;     (setq row (1+ row))))
+(modify-category-entry (cons (decode-char 'japanese-jisx0208 #x2321)
+			     (decode-char 'japanese-jisx0208 #x237E)) ?A)
+(modify-category-entry (cons (decode-char 'japanese-jisx0208 #x2421)
+			     (decode-char 'japanese-jisx0208 #x247E)) ?H)
+(modify-category-entry (cons (decode-char 'japanese-jisx0208 #x2521)
+			     (decode-char 'japanese-jisx0208 #x257E)) ?K)
+(modify-category-entry (cons (decode-char 'japanese-jisx0208 #x2621)
+			     (decode-char 'japanese-jisx0208 #x267E)) ?G)
+(modify-category-entry (cons (decode-char 'japanese-jisx0208 #x2721)
+			     (decode-char 'japanese-jisx0208 #x277E)) ?Y)
+(modify-category-entry (cons (decode-char 'japanese-jisx0208 #x3021)
+			     (decode-char 'japanese-jisx0208 #x7E7E)) ?C)
 (modify-category-entry ?õ€€› ?K)
 (let ((chars '(?õ€€Š ?õ€€‹)))
   (while chars