Set syntax/category for japanese-jisx0208.

1 files changed, 18 insertions, 20 deletions

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 297cc137f59..409170a78a3 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -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