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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bffc198e1ce55c0ba99e3ee0cf31330e32586931..d9382cbfd47384b9d6668a3935fd78904079b7b3 100644 (file)
--- 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 cf3c9f92041a2ce438f20b0a8e1390edbc36ac6c..81d464e7d5506ef5bb91ab52463e3b3acef8a951 100644 (file)
--- 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)