Mercurial > emacs
changeset 41882:f3bc5e440020
Resurrect the Hebrew category
settings for all Hebrew characters removed by the last change.
Add code for setting the Hebrew category of the Unicode Hebrew
characters. Set syntax entries for Hebrew punctuation characters.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 07 Dec 2001 17:52:20 +0000 |
| parents | 2c26c03652eb |
| children | c010baa24c12 |
| files | lisp/international/characters.el |
| diffstat | 1 files changed, 13 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/characters.el Fri Dec 07 17:41:24 2001 +0000 +++ b/lisp/international/characters.el Fri Dec 07 17:52:20 2001 +0000 @@ -468,7 +468,19 @@ ;; Hebrew character set (ISO-8859-8) -;; (modify-category-entry (make-char 'hebrew-iso8859-8) ?w) +(modify-category-entry (make-char 'hebrew-iso8859-8) ?w) +(let ((c #x591)) + (while (<= c #x5f4) + (modify-category-entry (decode-char 'ucs c) ?w) + (setq c (1+ c)))) + +(modify-syntax-entry (make-char 'hebrew-iso8859-8 208) ".") ; PASEQ +(modify-syntax-entry (make-char 'hebrew-iso8859-8 211) ".") ; SOF PASUQ +(modify-syntax-entry (decode-char 'ucs #x5be) ".") ; MAQAF +(modify-syntax-entry (decode-char 'ucs #x5c0) ".") ; PASEQ +(modify-syntax-entry (decode-char 'ucs #x5c3) ".") ; SOF PASUQ +(modify-syntax-entry (decode-char 'ucs #x5f3) ".") ; GERESH +(modify-syntax-entry (decode-char 'ucs #x5f4) ".") ; GERSHAYIM ;; (let ((c 224)) ;; (while (< c 251)