Mercurial > hg > xemacs-beta
changeset 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 | 93e076dd7825 |
| children | c1e8977783ed |
| files | lisp/ChangeLog lisp/mule/japan-util.el lisp/mule/mule-category.el lisp/mule/mule-cmds.el |
| diffstat | 4 files changed, 26 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Aug 02 15:35:54 2002 +0000 +++ b/lisp/ChangeLog Fri Aug 02 16:54:25 2002 +0000 @@ -1,3 +1,20 @@ +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>. + 2002-08-02 Ville Skyttä <ville.skytta@xemacs.org> * font-lock.el: Some faces and doc typo fixes from GNU Emacs.
--- 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 "\\|[$B!#!)!*(B]"))) @@ -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
--- a/lisp/mule/mule-category.el Fri Aug 02 15:35:54 2002 +0000 +++ b/lisp/mule/mule-category.el Fri Aug 02 16:54:25 2002 +0000 @@ -266,7 +266,7 @@ (if (and (nth 2 (car l)) (not (defined-category-p (nth 2 (car l))))) (define-category (nth 1 (car l)) (nth 2 (car l)))) - (modify-category-entry (car (car l)) (nth 1 (car l))) + (modify-category-entry (car (car l)) (nth 1 (car l)) nil t) (setq l (cdr l)))) ;;; Setting word boundary.
--- a/lisp/mule/mule-cmds.el Fri Aug 02 15:35:54 2002 +0000 +++ b/lisp/mule/mule-cmds.el Fri Aug 02 16:54:25 2002 +0000 @@ -753,6 +753,11 @@ (let ((func (get-language-info language-name 'setup-function))) (if (fboundp func) (funcall func))) + + ;; Fit the charsets preferences in unicode conversions for the + ;; language environment. + (set-language-unicode-precedence-list (charset-list)) + (run-hooks 'set-language-environment-hook) (force-mode-line-update t))