Mercurial > emacs
comparison lisp/language/hebrew.el @ 17772:550afdbb31d8
Make functions setup-LANGUAGE-environment
interactive and add new functions describe-LANGUAGE-support for
all LANGUAGEs supported. Remove resisterations of input methods
which use the function encoded-kbd-select-terminal.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 12 May 1997 07:00:16 +0000 |
parents | 8917133b7e82 |
children | 084d922fcd78 |
comparison
equal
deleted
inserted
replaced
17771:1db36f7e82d1 | 17772:550afdbb31d8 |
---|---|
35 | 35 |
36 (register-input-method | 36 (register-input-method |
37 "Hebrew" '("quail-hebrew" quail-use-package "quail/hebrew")) | 37 "Hebrew" '("quail-hebrew" quail-use-package "quail/hebrew")) |
38 | 38 |
39 (defun setup-hebrew-environment () | 39 (defun setup-hebrew-environment () |
40 "Setup multilingual environment (MULE) for Hebrew. | |
41 But, please note that right-to-left writing is not yet supported." | |
42 (interactive) | |
40 (setq coding-category-iso-8-1 'iso-8859-8) | 43 (setq coding-category-iso-8-1 'iso-8859-8) |
41 | 44 |
42 (set-coding-priority | 45 (set-coding-priority |
43 '(coding-category-iso-7 | 46 '(coding-category-iso-7 |
44 coding-category-iso-8-1 | 47 coding-category-iso-8-1 |
49 (set-keyboard-coding-system 'iso-8859-8) | 52 (set-keyboard-coding-system 'iso-8859-8) |
50 | 53 |
51 (setq default-input-method '("Hebrew" . "quail-hebrew")) | 54 (setq default-input-method '("Hebrew" . "quail-hebrew")) |
52 ) | 55 ) |
53 | 56 |
57 (defun describe-hebrew-support () | |
58 "Describe how Emacs supports Hebrew." | |
59 (interactive) | |
60 (describe-language-support-internal "Hebrew")) | |
61 | |
54 (set-language-info-alist | 62 (set-language-info-alist |
55 "Hebrew" '((setup-function . setup-hebrew-environment) | 63 "Hebrew" '((setup-function . setup-hebrew-environment) |
64 (describe-function . describe-hebrew-support) | |
56 (charset . (hebrew-iso8859-8)) | 65 (charset . (hebrew-iso8859-8)) |
57 (coding-system . (iso-8859-8)) | 66 (coding-system . (iso-8859-8)) |
58 (documentation . "Right-to-left writing is Not yet supported") | 67 (sample-text . "Hebrew ,Hylem(B") |
59 (sample-text . "Hebrew ,Hylem(B"))) | 68 (documentation . "Right-to-left writing is not yet supported."))) |
60 | 69 |
61 ;;; hebew.el ends here | 70 ;;; hebew.el ends here |