Mercurial > hg > xemacs-beta

comparison lisp/mule/hebrew.el @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents 4f79e16b1112
children 697ef44129c6
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
1 ;;; hebrew.el --- Support for Hebrew 1 ;;; hebrew.el --- Support for Hebrew -*- coding: iso-2022-7bit; -*-
2 2
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation. 4 ;; Licensed to the Free Software Foundation.
5 5
6 ;; Keywords: multilingual, Hebrew 6 ;; Keywords: multilingual, Hebrew
35 35
36 36
37 ;; (make-coding-system 37 ;; (make-coding-system
38 ;; 'hebrew-iso-8bit 2 ?8 38 ;; 'hebrew-iso-8bit 2 ?8
39 ;; "ISO 2022 based 8-bit encoding for Hebrew (MIME:ISO-8859-8)" 39 ;; "ISO 2022 based 8-bit encoding for Hebrew (MIME:ISO-8859-8)"
40 ;; '((ascii t) (hebrew-iso8859-8 t) nil nil 40 ;; '(ascii hebrew-iso8859-8 nil nil
41 ;; nil ascii-eol ascii-cntl nil nil nil nil nil t)) 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)))
42 44
43 ;; (define-coding-system-alias 'iso-8859-8 'hebrew-iso-8bit) 45 ;; (define-coding-system-alias 'iso-8859-8 'hebrew-iso-8bit)
44 46
45 (make-coding-system 47 (make-coding-system
46 'iso-8859-8 'iso2022 48 'iso-8859-8 'iso2022
49 charset-g1 hebrew-iso8859-8 51 charset-g1 hebrew-iso8859-8
50 charset-g2 t 52 charset-g2 t
51 charset-g3 t 53 charset-g3 t
52 no-iso6429 t 54 no-iso6429 t
53 mnemonic "MIME/Hbrw" 55 mnemonic "MIME/Hbrw"
54 )) 56 ))
55 57
56 (make-coding-system 58 (make-coding-system
57 'ctext-hebrew 'iso2022 59 'ctext-hebrew 'iso2022
58 "Coding-system of Hebrew." 60 "Coding-system of Hebrew."
59 '(charset-g0 ascii 61 '(charset-g0 ascii
65 67
66 (defun setup-hebrew-environment () 68 (defun setup-hebrew-environment ()
67 "Setup multilingual environment (MULE) for Hebrew. 69 "Setup multilingual environment (MULE) for Hebrew.
68 But, please note that right-to-left writing is not yet supported." 70 But, please note that right-to-left writing is not yet supported."
69 (interactive) 71 (interactive)
70 (setup-8-bit-environment "Hebrew" 'hebrew-iso8859-8 'iso-8859-8 72 (set-language-environment "Hebrew"))
71 "hebrew")
72 (set-coding-category-system 'iso-8-designate 'iso-8859-8)
73 (set-coding-priority-list
74 '(iso-8-designate
75 iso-8-1
76 iso-7
77 iso-8-2
78 iso-lock-shift
79 no-conversion
80 shift-jis
81 big5))
82 )
83 73
84 (set-language-info-alist 74 (set-language-info-alist
85 "Hebrew" '((setup-function . setup-hebrew-environment) 75 "Hebrew" '((charset hebrew-iso8859-8)
86 (describe-function . describe-hebrew-support) 76 (coding-system iso-8859-8)
87 (charset . (hebrew-iso8859-8)) 77 (coding-priority iso-8859-8)
88 (coding-system . (iso-8859-8)) 78 (input-method . "hebrew")
89 (sample-text . "Hebrew ,Hylem(B") 79 (sample-text . "Hebrew [2],Hylem[0](B")
90 (documentation . "Right-to-left writing is not yet supported.") 80 (documentation . "Right-to-left writing is not yet supported.")
91 )) 81 ))
92 82
93 ;;; hebrew.el ends here 83 ;;; hebrew.el ends here