Mercurial > hg > xemacs-beta

comparison lisp/mule/hebrew.el @ 450:98528da0b7fc r21-2-40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-40
author cvs
date Mon, 13 Aug 2007 11:39:20 +0200
parents 3ecd8885ac67
children 943eaba38521
comparison
equal deleted inserted replaced
449:c83749d23eb5 450:98528da0b7fc
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA. 23 ;; Boston, MA 02111-1307, USA.
24 24
25 ;;; Commentary: 25 ;;; Commentary:
26 26
27 ;; For Hebrew, the character sets ISO8859-8 is supported. 27 ;; ISO 8859-8 (Hebrew) support.
28 28
29 ;;; Code: 29 ;;; Code:
30 30
31 ;; Syntax of Hebrew characters 31 ;; Syntax of Hebrew characters
32 (loop for c from 96 to 122 32 (loop for c from 96 to 122
33 do (modify-syntax-entry (make-char 'hebrew-iso8859-8 c) "w")) 33 do (modify-syntax-entry (make-char 'hebrew-iso8859-8 c) "w"))
34 (modify-syntax-entry (make-char 'hebrew-iso8859-8 32) "w") ; no-break space 34 (modify-syntax-entry (make-char 'hebrew-iso8859-8 32) "w") ; no-break space
35 35
36 36
37 ;; (make-coding-system
38 ;; 'hebrew-iso-8bit 2 ?8
39 ;; "ISO 2022 based 8-bit encoding for Hebrew (MIME:ISO-8859-8)"
40 ;; '(ascii hebrew-iso8859-8 nil nil
41 ;; nil ascii-eol ascii-cntl nil nil nil nil nil t)
42 ;; '((safe-charsets ascii hebrew-iso8859-8)
43 ;; (mime-charset . iso-8859-8)))
44
45 ;; (define-coding-system-alias 'iso-8859-8 'hebrew-iso-8bit)
46
47 (make-coding-system 37 (make-coding-system
48 'iso-8859-8 'iso2022 38 'iso-8859-8 'iso2022
49 "MIME ISO-8859-8" 39 "ISO-8859-8 (ISO 2022 based 8-bit encoding for Hebrew)"
50 '(charset-g0 ascii 40 '(charset-g0 ascii
51 charset-g1 hebrew-iso8859-8 41 charset-g1 hebrew-iso8859-8
52 charset-g2 t 42 charset-g2 t
53 charset-g3 t 43 charset-g3 t
54 no-iso6429 t 44 no-iso6429 t
55 mnemonic "MIME/Hbrw" 45 mnemonic "MIME/Hbrw"
56 )) 46 ))
57 47
58 (make-coding-system 48 (make-coding-system
59 'ctext-hebrew 'iso2022 49 'ctext-hebrew 'iso2022
60 "Coding-system of Hebrew." 50 "Coding-system for Hebrew."
61 '(charset-g0 ascii 51 '(charset-g0 ascii
62 charset-g1 hebrew-iso8859-8 52 charset-g1 hebrew-iso8859-8
63 charset-g2 t 53 charset-g2 t
64 charset-g3 t 54 charset-g3 t
65 mnemonic "CText/Hbrw" 55 mnemonic "CText/Hbrw"
66 )) 56 ))
67 57
68 (defun setup-hebrew-environment () 58 (defun setup-hebrew-environment ()
69 "Setup multilingual environment (MULE) for Hebrew. 59 "Setup multilingual environment (MULE) for Hebrew.
70 But, please note that right-to-left writing is not yet supported." 60 Note: right-to-left writing is not yet supported."
71 (interactive) 61 (interactive)
72 (set-language-environment "Hebrew")) 62 (set-language-environment "Hebrew"))
73 63
74 (set-language-info-alist 64 (set-language-info-alist
75 "Hebrew" '((charset hebrew-iso8859-8) 65 "Hebrew" '((charset hebrew-iso8859-8)