Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-charset.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 3ecd8885ac67
children 7039e6323819
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
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