diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-09-10 07:42:08 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-09-10 07:42:08 +0000 |
| commit | a6385fa99c751ffd0cf7dcaede45dfb2c5d5b775 (patch) | |
| tree | a617cc18243662acd6c08bdcc87f3ecba81d5c81 | |
| parent | d1d0d27fec9fdfbd6a635f3784755e4a1be60f37 (diff) | |
| download | emacs-a6385fa99c751ffd0cf7dcaede45dfb2c5d5b775.tar.gz | |
(setup-japanese-environment): Give
iso-2022-jp to set-default-coding-system if not running on DOS.
(read-hiragana-string): Use input method
"japanese-hiragana".
| -rw-r--r-- | lisp/language/japan-util.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el index 88a3a6a623d..35e6c3f686f 100644 --- a/lisp/language/japan-util.el +++ b/lisp/language/japan-util.el @@ -45,7 +45,7 @@ (set-default-coding-systems (if (eq system-type 'ms-dos) 'japanese-shift-jis - 'iso-2022-7bit)) + 'iso-2022-jp)) (setq default-input-method "japanese")) @@ -286,7 +286,7 @@ Optional argument ASCII-ONLY non-nil means to convert only to ASCII char." (defun read-hiragana-string (prompt &optional initial-input) "Read a Hiragana string from the minibuffer, prompting with string PROMPT. If non-nil, second arg INITIAL-INPUT is a string to insert before reading." - (read-multilingual-string prompt initial-input "quail-ja-hiragana")) + (read-multilingual-string prompt initial-input "japanese-hiragana")) ;; (provide 'japan-util) |