diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2001-12-07 17:54:04 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2001-12-07 17:54:04 +0000 |
| commit | 227f528e48c25e5cda8e555a1324e0c666ad7cd3 (patch) | |
| tree | fa14291d3c6c8939167387b44733d650394f1ee0 /lisp/international/characters.el | |
| parent | 278abd30d53cd3b735c8694c1ab0f4a63d2d1a2c (diff) | |
| download | emacs-227f528e48c25e5cda8e555a1324e0c666ad7cd3.tar.gz | |
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.
Diffstat (limited to 'lisp/international/characters.el')
| -rw-r--r-- | lisp/international/characters.el | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/lisp/international/characters.el b/lisp/international/characters.el index cf3c9f92041..81d464e7d55 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -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) |