Mercurial > hg > xemacs-beta
comparison lisp/mule/mule-charset.el @ 404:2f8bb876ab1d r21-2-32
Import from CVS: tag r21-2-32
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:16:07 +0200 |
parents | 74fd4e045ea6 |
children | 697ef44129c6 |
comparison
equal
deleted
inserted
replaced
403:9f011ab08d48 | 404:2f8bb876ab1d |
---|---|
247 (defalias 'get-charset-property 'get) | 247 (defalias 'get-charset-property 'get) |
248 (defalias 'put-charset-property 'put) | 248 (defalias 'put-charset-property 'put) |
249 (defalias 'charset-plist 'object-plist) | 249 (defalias 'charset-plist 'object-plist) |
250 (defalias 'set-charset-plist 'setplist) | 250 (defalias 'set-charset-plist 'setplist) |
251 | 251 |
252 ;; Setup auto-fill-chars for charsets that should invoke auto-filling. | |
253 ;; SPACE and NEWLIE are already set. | |
254 (let ((l '(katakana-jisx0201 | |
255 japanese-jisx0208 japanese-jisx0212 | |
256 chinese-gb2312 chinese-big5-1 chinese-big5-2))) | |
257 (while l | |
258 (put-char-table (car l) t auto-fill-chars) | |
259 (setq l (cdr l)))) | |
260 | |
252 ;;; mule-charset.el ends here | 261 ;;; mule-charset.el ends here |