From: Eli Zaretskii Date: Fri, 7 Dec 2001 17:54:04 +0000 (+0000) Subject: Resurrect the Hebrew category X-Git-Tag: ttn-vms-21-2-B4~17851 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=227f528e48c25e5cda8e555a1324e0c666ad7cd3;p=emacs.git 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 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)