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.

2 files changed, 18 insertions, 1 deletions

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  <eliz@is.elta.co.il>
 
+        * 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)