Mercurial > hg > xemacs-beta
comparison lisp/mule/mule-category.el @ 450:98528da0b7fc r21-2-40
Import from CVS: tag r21-2-40
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:39:20 +0200 |
| parents | 576fb035e263 |
| children | 7039e6323819 |
comparison
equal
deleted
inserted
replaced
| 449:c83749d23eb5 | 450:98528da0b7fc |
|---|---|
| 277 (?C . ?K) ; Chinese - Katakana | 277 (?C . ?K) ; Chinese - Katakana |
| 278 )) | 278 )) |
| 279 | 279 |
| 280 ;;; At the present, I know Japanese and Chinese text can | 280 ;;; At the present, I know Japanese and Chinese text can |
| 281 ;;; break line at any point under a restriction of 'kinsoku'. | 281 ;;; break line at any point under a restriction of 'kinsoku'. |
| 282 ;;; #### SJT this needs to be set by language environments and probably should | |
| 283 ;;; be buffer-local---strategy for dealing with this: check all $language.el | |
| 284 ;;; files and also mule-base/$language-utils.el files for variables set; | |
| 285 ;;; these should be made buffer local and some kind of a- or p-list of vars | |
| 286 ;;; to be set for a language environment created. | |
| 282 (defvar word-across-newline "\\(\\cj\\|\\cc\\|\\ct\\)" | 287 (defvar word-across-newline "\\(\\cj\\|\\cc\\|\\ct\\)" |
| 283 "Regular expression of such characters which can be a word across newline.") | 288 "Regular expression of such characters which can be a word across newline.") |
| 284 | 289 |
| 285 (defvar ascii-char "[\40-\176]") | 290 (defvar ascii-char "[\40-\176]") |
| 286 (defvar ascii-space "[ \t]") | 291 (defvar ascii-space "[ \t]") |