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)