Mercurial > emacs

comparison lisp/language/japan-util.el @ 17993:73869115ae0a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Most of setup-LANGUAGE-environment functions are moved form LANGUAGE.el to LANG-util.el. These functions now at first call setup-english-environment to reset various values to the defaults.
author Kenichi Handa <handa@m17n.org>
date Wed, 28 May 1997 03:39:03 +0000
parents a3ca5e15c82a
children 0745f30aec66
comparison
equal deleted inserted replaced
17992:191bef5a0922 17993:73869115ae0a
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA. 23 ;; Boston, MA 02111-1307, USA.
24 24
25 ;;; Code: 25 ;;; Code:
26
27 ;;;###autoload
28 (defun setup-japanese-environment ()
29 "Setup multilingual environment (MULE) for Japanese."
30 (interactive)
31 (setup-english-environment)
32 (setq coding-category-iso-8-2 'euc-japan-1990)
33
34 (set-coding-priority
35 '(coding-category-iso-7
36 coding-category-iso-8-2
37 coding-category-sjis
38 coding-category-iso-8-1
39 coding-category-iso-else
40 coding-category-emacs-mule))
41
42 (if (eq system-type 'ms-dos)
43 (progn
44 (setq-default buffer-file-coding-system 'sjis)
45 (set-terminal-coding-system-internal 'sjis)
46 (set-keyboard-coding-system-internal 'sjis)
47 (setq default-process-coding-system '(sjis-dos . sjis-dos)))
48 (setq-default buffer-file-coding-system 'iso-2022-jp)
49 (set-terminal-coding-system-internal 'iso-2022-jp)
50 (set-keyboard-coding-system-internal 'iso-2022-jp))
51
52 (set-default-input-method "Japanese" "quail-ja")
53
54 (setq sendmail-coding-system 'iso-2022-jp
55 rmail-file-coding-system 'iso-2022-jp)
56 )
26 57
27 (defconst japanese-kana-table 58 (defconst japanese-kana-table
28 '((?$B$"(B ?$B%"(B ?(I1(B) (?$B$$(B ?$B%$(B ?(I2(B) (?$B$&(B ?$B%&(B ?(I3(B) (?$B$((B ?$B%((B ?(I4(B) (?$B$*(B ?$B%*(B ?(I5(B) 59 '((?$B$"(B ?$B%"(B ?(I1(B) (?$B$$(B ?$B%$(B ?(I2(B) (?$B$&(B ?$B%&(B ?(I3(B) (?$B$((B ?$B%((B ?(I4(B) (?$B$*(B ?$B%*(B ?(I5(B)
29 (?$B$+(B ?$B%+(B ?(I6(B) (?$B$-(B ?$B%-(B ?(I7(B) (?$B$/(B ?$B%/(B ?(I8(B) (?$B$1(B ?$B%1(B ?(I9(B) (?$B$3(B ?$B%3(B ?(I:(B) 60 (?$B$+(B ?$B%+(B ?(I6(B) (?$B$-(B ?$B%-(B ?(I7(B) (?$B$/(B ?$B%/(B ?(I8(B) (?$B$1(B ?$B%1(B ?(I9(B) (?$B$3(B ?$B%3(B ?(I:(B)
30 (?$B$5(B ?$B%5(B ?(I;(B) (?$B$7(B ?$B%7(B ?(I<(B) (?$B$9(B ?$B%9(B ?(I=(B) (?$B$;(B ?$B%;(B ?(I>(B) (?$B$=(B ?$B%=(B ?(I?(B) 61 (?$B$5(B ?$B%5(B ?(I;(B) (?$B$7(B ?$B%7(B ?(I<(B) (?$B$9(B ?$B%9(B ?(I=(B) (?$B$;(B ?$B%;(B ?(I>(B) (?$B$=(B ?$B%=(B ?(I?(B)