/[emacs]/emacs/lisp/international/characters.el
ViewVC logotype

Diff of /emacs/lisp/international/characters.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by fx, Fri Dec 7 14:47:37 2001 UTC revision 1.33 by eliz, Fri Dec 7 17:52:20 2001 UTC
# Line 468  Line 468 
468    
469  ;; Hebrew character set (ISO-8859-8)  ;; Hebrew character set (ISO-8859-8)
470    
471  ;; (modify-category-entry (make-char 'hebrew-iso8859-8) ?w)  (modify-category-entry (make-char 'hebrew-iso8859-8) ?w)
472    (let ((c #x591))
473      (while (<= c #x5f4)
474        (modify-category-entry (decode-char 'ucs c) ?w)
475        (setq c (1+ c))))
476    
477    (modify-syntax-entry (make-char 'hebrew-iso8859-8 208) ".") ; PASEQ
478    (modify-syntax-entry (make-char 'hebrew-iso8859-8 211) ".") ; SOF PASUQ
479    (modify-syntax-entry (decode-char 'ucs #x5be) ".") ; MAQAF
480    (modify-syntax-entry (decode-char 'ucs #x5c0) ".") ; PASEQ
481    (modify-syntax-entry (decode-char 'ucs #x5c3) ".") ; SOF PASUQ
482    (modify-syntax-entry (decode-char 'ucs #x5f3) ".") ; GERESH
483    (modify-syntax-entry (decode-char 'ucs #x5f4) ".") ; GERSHAYIM
484    
485  ;; (let ((c 224))  ;; (let ((c 224))
486  ;;   (while (< c 251)  ;;   (while (< c 251)

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26