Mercurial > hg > xemacs-beta
comparison lisp/mule/mule-category.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 | 026c5bf9c134 |
| children | 949ac151a10d |
comparison
equal
deleted
inserted
replaced
| 951:93e076dd7825 | 952:c10d0c3f965f |
|---|---|
| 264 (setq l predefined-category-list) | 264 (setq l predefined-category-list) |
| 265 (while l | 265 (while l |
| 266 (if (and (nth 2 (car l)) | 266 (if (and (nth 2 (car l)) |
| 267 (not (defined-category-p (nth 2 (car l))))) | 267 (not (defined-category-p (nth 2 (car l))))) |
| 268 (define-category (nth 1 (car l)) (nth 2 (car l)))) | 268 (define-category (nth 1 (car l)) (nth 2 (car l)))) |
| 269 (modify-category-entry (car (car l)) (nth 1 (car l))) | 269 (modify-category-entry (car (car l)) (nth 1 (car l)) nil t) |
| 270 (setq l (cdr l)))) | 270 (setq l (cdr l)))) |
| 271 | 271 |
| 272 ;;; Setting word boundary. | 272 ;;; Setting word boundary. |
| 273 | 273 |
| 274 (setq word-combining-categories | 274 (setq word-combining-categories |