Mercurial > emacs
changeset 90258:c277fa406d7b
Register characters in
auto-fill-chars. Put nospace-between-words to more charsets.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 28 Dec 2005 07:22:45 +0000 |
| parents | 5fa2c40cc6a4 |
| children | a3ba65547f84 |
| files | lisp/international/characters.el |
| diffstat | 1 files changed, 15 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/characters.el Wed Dec 28 06:02:28 2005 +0000 +++ b/lisp/international/characters.el Wed Dec 28 07:22:45 2005 +0000 @@ -484,6 +484,8 @@ (zerop (% c 2)) (set-case-syntax-pair (1- c) c tbl)) (setq c (1+ c))) + (set-downcase-syntax ?İ ?i tbl) + (set-upcase-syntax ?I ?ı tbl) (set-case-syntax-pair ?IJ ?ij tbl) (set-case-syntax-pair ?Ĵ ?ĵ tbl) (set-case-syntax-pair ?Ķ ?ķ tbl) @@ -868,11 +870,22 @@ ;; Setup auto-fill-chars for charsets that should invoke auto-filling. ;; SPACE and NEWLINE are already set. Also put `nospace-between-words' ;; property on the charsets. + +(set-char-table-range auto-fill-chars '(#x3041 . #x30FF) t) +(set-char-table-range auto-fill-chars '(#x3400 . #x4DB5) t) +(set-char-table-range auto-fill-chars '(#x4e00 . #x9fbb) t) +(set-char-table-range auto-fill-chars '(#xF900 . #xFAFF) t) +(set-char-table-range auto-fill-chars '(#xFF00 . #xFF9F) t) +(set-char-table-range auto-fill-chars '(#x20000 . #x2FFFF) t) + (let ((l '(katakana-jisx0201 japanese-jisx0208 japanese-jisx0212 - chinese-gb2312 chinese-big5-1 chinese-big5-2))) + japanese-jisx0213-1 japanese-jisx0213-2 + chinese-gb2312 chinese-gbk chinese-big5-1 chinese-big5-2 + chinese-cns11643-1 chinese-cns11643-2 chinese-cns11643-3 + chinese-cns11643-4 chinese-cns11643-5 chinese-cns11643-6 + chinese-cns11643-7))) (while l - ;;(aset auto-fill-chars (make-char (car l)) t) (put-charset-property (car l) 'nospace-between-words t) (setq l (cdr l))))