Mercurial > emacs

comparison lisp/language/hebrew.el @ 88414:fad0f879877f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Call define-coding-system instead of make-coding-system. All CCL program deleted.
author Kenichi Handa <handa@m17n.org>
date Fri, 01 Mar 2002 02:28:29 +0000
parents e3ae5ef41293
children bafe04d82c5d
comparison
equal deleted inserted replaced
88413:418777d5ccd4 88414:fad0f879877f
29 ;; See http://www.ecma.ch/ecma1/STAND/ECMA-121.HTM. 29 ;; See http://www.ecma.ch/ecma1/STAND/ECMA-121.HTM.
30 ;; Windows-1255 is also supported. 30 ;; Windows-1255 is also supported.
31 31
32 ;;; Code: 32 ;;; Code:
33 33
34 (make-coding-system 34 (define-coding-system 'hebrew-iso-8bit
35 'hebrew-iso-8bit 2 ?8 35 "ISO 2022 based 8-bit encoding for Hebrew (MIME:ISO-8859-8)."
36 "ISO 2022 based 8-bit encoding for Hebrew (MIME:ISO-8859-8)." 36 :coding-type 'charset
37 '(ascii hebrew-iso8859-8 nil nil 37 :mnemonic ?8
38 nil ascii-eol ascii-cntl nil nil nil nil nil t) 38 :charset-list '(iso-8859-8)
39 '((safe-charsets ascii hebrew-iso8859-8) 39 :plist '(mime-charset iso-8859-8))
40 (mime-charset . iso-8859-8)))
41 40
42 (define-coding-system-alias 'iso-8859-8 'hebrew-iso-8bit) 41 (define-coding-system-alias 'iso-8859-8 'hebrew-iso-8bit)
43 42
44 ;; These are for Explicit and Implicit directionality information, as 43 ;; These are for Explicit and Implicit directionality information, as
45 ;; defined in RFC 1556. We don't yet support directional information 44 ;; defined in RFC 1556. We don't yet support directional information
47 ;; iso-8859-8-e is concerned. FIXME. 46 ;; iso-8859-8-e is concerned. FIXME.
48 (define-coding-system-alias 'iso-8859-8-e 'hebrew-iso-8bit) 47 (define-coding-system-alias 'iso-8859-8-e 'hebrew-iso-8bit)
49 (define-coding-system-alias 'iso-8859-8-i 'hebrew-iso-8bit) 48 (define-coding-system-alias 'iso-8859-8-i 'hebrew-iso-8bit)
50 49
51 (set-language-info-alist 50 (set-language-info-alist
52 "Hebrew" '((charset . (hebrew-iso8859-8)) 51 "Hebrew" '((charset . iso-8859-8)
53 (coding-priority hebrew-iso-8bit) 52 (coding-priority hebrew-iso-8bit)
54 (coding-system . (hebrew-iso-8bit)) 53 (coding-system hebrew-iso-8bit)
55 (nonascii-translation . hebrew-iso8859-8) 54 (nonascii-translation . iso-8859-8)
56 (input-method . "hebrew") 55 (input-method . "hebrew")
57 (unibyte-display . hebrew-iso-8bit) 56 (unibyte-display . hebrew-iso-8bit)
58 (sample-text . "Hebrew ,Hylem(B") 57 (sample-text . "Hebrew ,Hylem(B")
59 (documentation . "Right-to-left writing is not yet supported."))) 58 (documentation . "Right-to-left writing is not yet supported.")))
60 59