comparison lisp/language/japan-util.el @ 19854:c6f58c509273

(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".

19853:89a91516559b

     coding-category-emacs-mule))

  (set-default-coding-systems
   (if (eq system-type 'ms-dos)
       'japanese-shift-jis
     'iso-2022-7bit))

  (setq default-input-method "japanese"))

(defconst japanese-kana-table
  '((?$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)

;;;###autoload
(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"))

;;
(provide 'japan-util)

;;; japan-util.el ends here

19854:c6f58c509273

     coding-category-emacs-mule))

  (set-default-coding-systems
   (if (eq system-type 'ms-dos)
       'japanese-shift-jis
     'iso-2022-jp))

  (setq default-input-method "japanese"))

(defconst japanese-kana-table
  '((?$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)

;;;###autoload
(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 "japanese-hiragana"))

;;
(provide 'japan-util)

;;; japan-util.el ends here