From 227f528e48c25e5cda8e555a1324e0c666ad7cd3 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 7 Dec 2001 17:54:04 +0000 Subject: [PATCH] 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. --- lisp/ChangeLog | 5 +++++ lisp/international/characters.el | 14 +++++++++++++- 2 files changed, 18 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bffc198e1ce..d9382cbfd47 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2001-12-07 Eli Zaretskii + * international/characters.el: 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. + * international/ucs-tables.el (ucs-8859-8-alist): Add Hebrew points and directional formatting control characters. 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) -- 2.39.5