Mercurial > emacs

comparison lisp/language/hebrew.el @ 20741:dcad2d056d80

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Adjusted for the change of make-coding-system and setup-8-bit-environment.
author Kenichi Handa <handa@m17n.org>
date Thu, 22 Jan 1998 01:47:27 +0000
parents dce0d588d203
children e632673d8975
comparison
equal deleted inserted replaced
20740:7918e0f37c7c 20741:dcad2d056d80
31 (make-coding-system 31 (make-coding-system
32 'hebrew-iso-8bit 2 ?8 32 'hebrew-iso-8bit 2 ?8
33 "ISO 2022 based 8-bit encoding for Hebrew (MIME:ISO-8859-8)" 33 "ISO 2022 based 8-bit encoding for Hebrew (MIME:ISO-8859-8)"
34 '((ascii t) (hebrew-iso8859-8 t) nil nil 34 '((ascii t) (hebrew-iso8859-8 t) nil nil
35 nil ascii-eol ascii-cntl nil nil nil nil nil t) 35 nil ascii-eol ascii-cntl nil nil nil nil nil t)
36 '(ascii hebrew-iso8859-8)) 36 '((safe-charsets ascii hebrew-iso8859-8)
37 (mime-charset . iso-8859-8)))
37 38
38 (define-coding-system-alias 'iso-8859-8 'hebrew-iso-8bit) 39 (define-coding-system-alias 'iso-8859-8 'hebrew-iso-8bit)
39 40
40 (defun setup-hebrew-environment () 41 (defun setup-hebrew-environment ()
41 "Setup multilingual environment (MULE) for Hebrew. 42 "Setup multilingual environment (MULE) for Hebrew.
42 But, please note that right-to-left writing is not yet supported." 43 But, please note that right-to-left writing is not yet supported."
43 (interactive) 44 (interactive)
44 (setup-8-bit-environment "Hebrew" 'hebrew-iso8859-8 'hebrew-iso-8bit 45 (setup-8-bit-environment "Hebrew" 'hebrew-iso8859-8 "hebrew"))
45 "hebrew"))
46 46
47 (set-language-info-alist 47 (set-language-info-alist
48 "Hebrew" '((setup-function . setup-hebrew-environment) 48 "Hebrew" '((setup-function . setup-hebrew-environment)
49 (describe-function . describe-hebrew-support) 49 (describe-function . describe-hebrew-support)
50 (charset . (hebrew-iso8859-8)) 50 (charset . (hebrew-iso8859-8))