468 |
|
|
469 |
;; Hebrew character set (ISO-8859-8) |
;; Hebrew character set (ISO-8859-8) |
470 |
|
|
471 |
;; (modify-category-entry (make-char 'hebrew-iso8859-8) ?w) |
(modify-category-entry (make-char 'hebrew-iso8859-8) ?w) |
472 |
|
(let ((c #x591)) |
473 |
|
(while (<= c #x5f4) |
474 |
|
(modify-category-entry (decode-char 'ucs c) ?w) |
475 |
|
(setq c (1+ c)))) |
476 |
|
|
477 |
|
(modify-syntax-entry (make-char 'hebrew-iso8859-8 208) ".") ; PASEQ |
478 |
|
(modify-syntax-entry (make-char 'hebrew-iso8859-8 211) ".") ; SOF PASUQ |
479 |
|
(modify-syntax-entry (decode-char 'ucs #x5be) ".") ; MAQAF |
480 |
|
(modify-syntax-entry (decode-char 'ucs #x5c0) ".") ; PASEQ |
481 |
|
(modify-syntax-entry (decode-char 'ucs #x5c3) ".") ; SOF PASUQ |
482 |
|
(modify-syntax-entry (decode-char 'ucs #x5f3) ".") ; GERESH |
483 |
|
(modify-syntax-entry (decode-char 'ucs #x5f4) ".") ; GERSHAYIM |
484 |
|
|
485 |
;; (let ((c 224)) |
;; (let ((c 224)) |
486 |
;; (while (< c 251) |
;; (while (< c 251) |