101 |
|
|
102 |
;; ASCII |
;; ASCII |
103 |
|
|
104 |
(let ((ch 32)) |
;; All ASCII characters have the category `a' (ASCII) and `l' (Latin). |
105 |
(while (< ch 127) ; All ASCII characters have |
(modify-category-entry '(32 . 127) ?a) |
106 |
(modify-category-entry ch ?a) ; the category `a' (ASCII) |
(modify-category-entry '(32 . 127) ?l) |
|
(modify-category-entry ch ?l) ; and `l' (Latin). |
|
|
(setq ch (1+ ch)))) |
|
107 |
|
|
108 |
;; Arabic character set |
;; Arabic character set |
109 |
|
|
114 |
(while charsets |
(while charsets |
115 |
;; (modify-syntax-entry (make-char (car charsets)) "w") |
;; (modify-syntax-entry (make-char (car charsets)) "w") |
116 |
(map-charset-chars |
(map-charset-chars |
117 |
#'(lambda (char ignore) |
#'(lambda (char ignore) (modify-category-entry char ?b)) |
|
(if (consp char) |
|
|
(let ((from (car char)) |
|
|
(to (cdr char))) |
|
|
(while (<= from to) |
|
|
(modify-category-entry from ?b) |
|
|
(setq from (1+ from)))) |
|
|
(modify-category-entry char ?b))) |
|
118 |
(car charsets)) |
(car charsets)) |
119 |
(setq charsets (cdr charsets)))) |
(setq charsets (cdr charsets)))) |
120 |
(let ((ch #x600)) |
(modify-category-entry '(#x600 . #x6ff) ?b) |
121 |
(while (<= ch #x6ff) |
(modify-category-entry '(#xfb50 . #xfdff) ?b) |
122 |
(modify-category-entry (decode-char 'ucs ch) ?b) |
(modify-category-entry '(#xfe70 . #xfefe) ?b) |
|
(setq ch (1+ ch))) |
|
|
(setq ch #xfb50) |
|
|
(while (<= ch #xfdff) |
|
|
(modify-category-entry (decode-char 'ucs ch) ?b) |
|
|
(setq ch (1+ ch))) |
|
|
(setq ch #xfe70) |
|
|
(while (<= ch #xfefe) |
|
|
(modify-category-entry (decode-char 'ucs ch) ?b) |
|
|
(setq ch (1+ ch)))) |
|
123 |
|
|
124 |
;; Chinese character set (GB2312) |
;; Chinese character set (GB2312) |
125 |
|
|
348 |
|
|
349 |
;; (modify-category-entry (make-char 'ethiopic) ?e) |
;; (modify-category-entry (make-char 'ethiopic) ?e) |
350 |
;; (modify-syntax-entry (make-char 'ethiopic) "w") |
;; (modify-syntax-entry (make-char 'ethiopic) "w") |
351 |
(dotimes (i (1+ (- #x137c #x1200))) |
(modify-category-entry '(#x1200 . #x137b) ?e) |
|
(modify-category-entry (decode-char 'ucs (+ #x1200 i)) ?e)) |
|
352 |
(let ((chars '(?$(3$h(B ?$(3$i(B ?$(3$j(B ?$(3$k(B ?$(3$l(B ?$(3$m(B ?$(3$n(B ?$(3$o(B ?$(3%i(B ?$(3%t(B ?$(3%u(B ?$(3%v(B ?$(3%w(B ?$(3%x(B |
(let ((chars '(?$(3$h(B ?$(3$i(B ?$(3$j(B ?$(3$k(B ?$(3$l(B ?$(3$m(B ?$(3$n(B ?$(3$o(B ?$(3%i(B ?$(3%t(B ?$(3%u(B ?$(3%v(B ?$(3%w(B ?$(3%x(B |
353 |
;; Unicode equivalents of the above: |
;; Unicode equivalents of the above: |
354 |
?$,1Q!(B ?$,1Q"(B ?$,1Q#(B ?$,1Q$(B ?$,1Q%(B ?$,1Q&(B ?$,1Q'(B ?$,1Q((B ?$,3op(B ?$,3o{(B ?$,3o|(B ?$,3o}(B ?$,3o~(B ?$,3o(B))) |
?$,1Q!(B ?$,1Q"(B ?$,1Q#(B ?$,1Q$(B ?$,1Q%(B ?$,1Q&(B ?$,1Q'(B ?$,1Q((B ?$,3op(B ?$,3o{(B ?$,3o|(B ?$,3o}(B ?$,3o~(B ?$,3o(B))) |