Mercurial > hg > xemacs-beta

comparison lisp/mule/japan-util.el @ 952:c10d0c3f965f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
comparison
equal deleted inserted replaced
951:93e076dd7825 952:c10d0c3f965f
33 (defvar sentence-end-save nil) 33 (defvar sentence-end-save nil)
34 34
35 ;;;###autoload 35 ;;;###autoload
36 (defun setup-japanese-environment-internal () 36 (defun setup-japanese-environment-internal ()
37 (cond ((eq system-type 'ms-dos) 37 (cond ((eq system-type 'ms-dos)
38 (prefer-coding-system 'japanese-shift-jis)) 38 (prefer-coding-system 'shift_jis))
39 ((eq system-type 'usg-unix-v) 39 ((eq system-type 'usg-unix-v)
40 (prefer-coding-system 'japanese-iso-8bit))) 40 (prefer-coding-system 'euc-jp)))
41 (setq sentence-end-save sentence-end) 41 (setq sentence-end-save sentence-end)
42 (setq sentence-end (concat sentence-end "\\|[。？！]"))) 42 (setq sentence-end (concat sentence-end "\\|[。？！]")))
43 43
44 (defun exit-japanese-environment () 44 (defun exit-japanese-environment ()
45 (setq sentence-end sentence-end-save)) 45 (setq sentence-end sentence-end-save))
87 hira 'kana-composition 87 hira 'kana-composition
88 (cons (cons (aref hiragana 1) katakana) 88 (cons (cons (aref hiragana 1) katakana)
89 (get-char-code-property hira 'kana-composition))))) 89 (get-char-code-property hira 'kana-composition)))))
90 (put-char-code-property hiragana 'katakana katakana) 90 (put-char-code-property hiragana 'katakana katakana)
91 (put-char-code-property hiragana 'jisx0201 jisx0201))) 91 (put-char-code-property hiragana 'jisx0201 jisx0201)))
92 (when (integerp katakana) 92 (when (characterp katakana)
93 (put-char-code-property katakana 'hiragana hiragana) 93 (put-char-code-property katakana 'hiragana hiragana)
94 (put-char-code-property katakana 'jisx0201 jisx0201)) 94 (put-char-code-property katakana 'jisx0201 jisx0201))
95 (if jisx0201 95 (if jisx0201
96 (if (stringp jisx0201) 96 (if (stringp jisx0201)
97 (if (> (length jisx0201) 1) 97 (if (> (length jisx0201) 1)