Mercurial > hg > xemacs-beta
diff lisp/mule/japan-util.el @ 952:c10d0c3f965f
[xemacs-hg @ 2002-08-02 16:54:11 by youngs]
2002-05-29 Katsumi Yamaoka <yamaoka@jpl.org>
* mule/japan-util.el (setup-japanese-environment-internal): Use
proper coding-systems.
2002-05-28 Katsumi Yamaoka <yamaoka@jpl.org>
* mule/japan-util.el: Use `characterp' instead of `integerp' while
defining char properties for katakana.
* mule/mule-category.el: Clear the category table before defining
categories for `predefined-category-list'.
* mule/mule-cmds.el (finish-set-language-environment): Fit the
charsets preferences in unicode conversions for the language
environment. Suggested by ARISAWA Akihiro <ari@mbf.sphere.ne.jp>.
| author | youngs |
|---|---|
| date | Fri, 02 Aug 2002 16:54:25 +0000 |
| parents | 2923009caf47 |
| children | 6c18935dbbf8 |
line wrap: on
line diff
--- a/lisp/mule/japan-util.el Fri Aug 02 15:35:54 2002 +0000 +++ b/lisp/mule/japan-util.el Fri Aug 02 16:54:25 2002 +0000 @@ -35,9 +35,9 @@ ;;;###autoload (defun setup-japanese-environment-internal () (cond ((eq system-type 'ms-dos) - (prefer-coding-system 'japanese-shift-jis)) + (prefer-coding-system 'shift_jis)) ((eq system-type 'usg-unix-v) - (prefer-coding-system 'japanese-iso-8bit))) + (prefer-coding-system 'euc-jp))) (setq sentence-end-save sentence-end) (setq sentence-end (concat sentence-end "\\|[。？！]"))) @@ -89,7 +89,7 @@ (get-char-code-property hira 'kana-composition))))) (put-char-code-property hiragana 'katakana katakana) (put-char-code-property hiragana 'jisx0201 jisx0201))) - (when (integerp katakana) + (when (characterp katakana) (put-char-code-property katakana 'hiragana hiragana) (put-char-code-property katakana 'jisx0201 jisx0201)) (if jisx0201