477 |
(let ((c #x30a0)) |
(let ((c #x30a0)) |
478 |
(while (<= c #x30ff) |
(while (<= c #x30ff) |
479 |
;; ?K is double width, ?k isn't specified |
;; ?K is double width, ?k isn't specified |
480 |
(modify-category-entry (decode-char 'ucs c) ?k) |
(modify-category-entry (decode-char 'ucs c) ?K) |
481 |
(modify-category-entry (decode-char 'ucs c) ?j) |
;;(modify-category-entry (decode-char 'ucs c) ?j) |
482 |
(modify-category-entry (decode-char 'ucs c) ?\|) |
(modify-category-entry (decode-char 'ucs c) ?\|) |
483 |
(setq c (1+ c)))) |
(setq c (1+ c)))) |
484 |
|
|
492 |
(setq c (1+ c)))) |
(setq c (1+ c)))) |
493 |
|
|
494 |
;; JISX0208 |
;; 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)))) |
|
|
|
|
495 |
(modify-syntax-entry (cons (decode-char 'japanese-jisx0208 #x2121) |
(modify-syntax-entry (cons (decode-char 'japanese-jisx0208 #x2121) |
496 |
(decode-char 'japanese-jisx0208 #x227E)) "_") |
(decode-char 'japanese-jisx0208 #x227E)) "_") |
497 |
(modify-syntax-entry (cons (decode-char 'japanese-jisx0208 #x2821) |
(modify-syntax-entry (cons (decode-char 'japanese-jisx0208 #x2821) |
498 |
(decode-char 'japanese-jisx0208 #x287E)) "_") |
(decode-char 'japanese-jisx0208 #x287E)) "_") |
499 |
|
(let ((chars '(?õ€€› ?õ€€Š ?õ€€‹ ?õ€€’ ?õ€€“ ?õ€€” ?õ€€• ?õ€€– ?õ€€— ?õ€€˜ ?õ€€™ ?õ€€š))) |
500 |
|
(dolist (elt chars) |
501 |
|
(modify-syntax-entry (car chars) "w") |
502 |
|
(setq chars (cdr chars)))) |
503 |
(modify-syntax-entry ?\õ€€© "(õ€€ª") |
(modify-syntax-entry ?\õ€€© "(õ€€ª") |
504 |
(modify-syntax-entry ?\õ€€ "(õ€€®") |
(modify-syntax-entry ?\õ€€ "(õ€€®") |
505 |
(modify-syntax-entry ?\õ€€¯ "(õ€€°") |
(modify-syntax-entry ?\õ€€¯ "(õ€€°") |
511 |
(modify-syntax-entry ?\õ€€¶ ")õ€€µ") |
(modify-syntax-entry ?\õ€€¶ ")õ€€µ") |
512 |
(modify-syntax-entry ?\õ€€¸ ")õ€€·") |
(modify-syntax-entry ?\õ€€¸ ")õ€€·") |
513 |
|
|
514 |
;; (modify-category-entry (make-char 'japanese-jisx0208 35) ?A) |
(modify-category-entry (cons (decode-char 'japanese-jisx0208 #x2321) |
515 |
;; (modify-category-entry (make-char 'japanese-jisx0208 36) ?H) |
(decode-char 'japanese-jisx0208 #x237E)) ?A) |
516 |
;; (modify-category-entry (make-char 'japanese-jisx0208 37) ?K) |
(modify-category-entry (cons (decode-char 'japanese-jisx0208 #x2421) |
517 |
;; (modify-category-entry (make-char 'japanese-jisx0208 38) ?G) |
(decode-char 'japanese-jisx0208 #x247E)) ?H) |
518 |
;; (modify-category-entry (make-char 'japanese-jisx0208 39) ?Y) |
(modify-category-entry (cons (decode-char 'japanese-jisx0208 #x2521) |
519 |
;; (let ((row 48)) |
(decode-char 'japanese-jisx0208 #x257E)) ?K) |
520 |
;; (while (< row 127) |
(modify-category-entry (cons (decode-char 'japanese-jisx0208 #x2621) |
521 |
;; (modify-category-entry (make-char 'japanese-jisx0208 row) ?C) |
(decode-char 'japanese-jisx0208 #x267E)) ?G) |
522 |
;; (setq row (1+ row)))) |
(modify-category-entry (cons (decode-char 'japanese-jisx0208 #x2721) |
523 |
|
(decode-char 'japanese-jisx0208 #x277E)) ?Y) |
524 |
|
(modify-category-entry (cons (decode-char 'japanese-jisx0208 #x3021) |
525 |
|
(decode-char 'japanese-jisx0208 #x7E7E)) ?C) |
526 |
(modify-category-entry ?õ€€› ?K) |
(modify-category-entry ?õ€€› ?K) |
527 |
(let ((chars '(?õ€€Š ?õ€€‹))) |
(let ((chars '(?õ€€Š ?õ€€‹))) |
528 |
(while chars |
(while chars |