Mercurial > hg > xemacs-beta

comparison lisp/mule/hebrew.el @ 412:697ef44129c6 r21-2-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents 74fd4e045ea6
children 95016f13131a
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
1 ;;; hebrew.el --- Support for Hebrew -*- coding: iso-2022-7bit; -*- 1 ;;; hebrew.el --- Support for Hebrew
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 hebrew-iso8859-8 nil nil 40 ;; '((ascii t) (hebrew-iso8859-8 t) 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)))
44 42
45 ;; (define-coding-system-alias 'iso-8859-8 'hebrew-iso-8bit) 43 ;; (define-coding-system-alias 'iso-8859-8 'hebrew-iso-8bit)
46 44
47 (make-coding-system 45 (make-coding-system
48 'iso-8859-8 'iso2022 46 'iso-8859-8 'iso2022
51 charset-g1 hebrew-iso8859-8 49 charset-g1 hebrew-iso8859-8
52 charset-g2 t 50 charset-g2 t
53 charset-g3 t 51 charset-g3 t
54 no-iso6429 t 52 no-iso6429 t
55 mnemonic "MIME/Hbrw" 53 mnemonic "MIME/Hbrw"
56 )) 54 ))
57 55
58 (make-coding-system 56 (make-coding-system
59 'ctext-hebrew 'iso2022 57 'ctext-hebrew 'iso2022
60 "Coding-system of Hebrew." 58 "Coding-system of Hebrew."
61 '(charset-g0 ascii 59 '(charset-g0 ascii
67 65
68 (defun setup-hebrew-environment () 66 (defun setup-hebrew-environment ()
69 "Setup multilingual environment (MULE) for Hebrew. 67 "Setup multilingual environment (MULE) for Hebrew.
70 But, please note that right-to-left writing is not yet supported." 68 But, please note that right-to-left writing is not yet supported."
71 (interactive) 69 (interactive)
72 (set-language-environment "Hebrew")) 70 (setup-8-bit-environment "Hebrew" 'hebrew-iso8859-8 'iso-8859-8
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 )
73 83
74 (set-language-info-alist 84 (set-language-info-alist
75 "Hebrew" '((charset hebrew-iso8859-8) 85 "Hebrew" '((setup-function . setup-hebrew-environment)
76 (coding-system iso-8859-8) 86 (describe-function . describe-hebrew-support)
77 (coding-priority iso-8859-8) 87 (charset . (hebrew-iso8859-8))
78 (input-method . "hebrew") 88 (coding-system . (iso-8859-8))
79 (sample-text . "Hebrew [2],Hylem[0](B") 89 (sample-text . "Hebrew ,Hylem(B")
80 (documentation . "Right-to-left writing is not yet supported.") 90 (documentation . "Right-to-left writing is not yet supported.")
81 )) 91 ))
82 92
83 ;;; hebrew.el ends here 93 ;;; hebrew.el ends here