comparison lisp/mule/hebrew.el @ 771:943eaba38521

[xemacs-hg @ 2002-03-13 08:51:24 by ben] The big ben-mule-21-5 check-in! Various files were added and deleted. See CHANGES-ben-mule. There are still some test suite failures. No crashes, though. Many of the failures have to do with problems in the test suite itself rather than in the actual code. I'll be addressing these in the next day or so -- none of the test suite failures are at all critical. Meanwhile I'll be trying to address the biggest issues -- i.e. build or run failures, which will almost certainly happen on various platforms. All comments should be sent to ben@xemacs.org -- use a Cc: if necessary when sending to mailing lists. There will be pre- and post- tags, something like pre-ben-mule-21-5-merge-in, and post-ben-mule-21-5-merge-in.
author ben
date Wed, 13 Mar 2002 08:54:06 +0000
parents 98528da0b7fc
children 2923009caf47
comparison
equal deleted inserted replaced
770:336a418893b5 771:943eaba38521
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 37 (make-coding-system
38 'iso-8859-8 'iso2022 38 'iso-8859-8 'iso2022
39 "ISO-8859-8 (ISO 2022 based 8-bit encoding for Hebrew)" 39 "ISO-8859-8 (Hebrew)"
40 '(charset-g0 ascii 40 '(charset-g0 ascii
41 charset-g1 hebrew-iso8859-8 41 charset-g1 hebrew-iso8859-8
42 charset-g2 t 42 charset-g2 t
43 charset-g3 t 43 charset-g3 t
44 no-iso6429 t 44 no-iso6429 t
45 mnemonic "MIME/Hbrw" 45 mnemonic "MIME/Hbrw"
46 )) 46 ))
47 47
48 (make-coding-system 48 (make-coding-system
49 'ctext-hebrew 'iso2022 49 'ctext-hebrew 'iso2022
50 "Coding-system for Hebrew." 50 "ISO-8859-8-E (Hebrew, explicit directional coding)"
51 '(charset-g0 ascii 51 '(charset-g0 ascii
52 charset-g1 hebrew-iso8859-8 52 charset-g1 hebrew-iso8859-8
53 charset-g2 t 53 charset-g2 t
54 charset-g3 t 54 charset-g3 t
55 mnemonic "CText/Hbrw" 55 mnemonic "CText/Hbrw"
56 )) 56 ))
57
58 (defun setup-hebrew-environment ()
59 "Setup multilingual environment (MULE) for Hebrew.
60 Note: right-to-left writing is not yet supported."
61 (interactive)
62 (set-language-environment "Hebrew"))
63 57
64 (set-language-info-alist 58 (set-language-info-alist
65 "Hebrew" '((charset hebrew-iso8859-8) 59 "Hebrew" '((charset hebrew-iso8859-8)
66 (coding-system iso-8859-8) 60 (coding-system iso-8859-8)
67 (coding-priority iso-8859-8) 61 (coding-priority iso-8859-8)