33 |
|
|
34 |
;;; Code: |
;;; Code: |
35 |
|
|
36 |
|
;; We must set utf-translate-cjk-mode to nil while loading this file |
37 |
|
;; to avoid translating CJK characters in decode-char. |
38 |
|
(defvar saved-utf-translate-cjk-mode utf-translate-cjk-mode) |
39 |
|
(setq utf-translate-cjk-mode nil) |
40 |
|
|
41 |
;;; Predefined categories. |
;;; Predefined categories. |
42 |
|
|
43 |
;; For each character set. |
;; For each character set. |
1282 |
(put-charset-property (car l) 'nospace-between-words t) |
(put-charset-property (car l) 'nospace-between-words t) |
1283 |
(setq l (cdr l)))) |
(setq l (cdr l)))) |
1284 |
|
|
1285 |
|
|
1286 |
|
(setq utf-translate-cjk-mode saved-utf-translate-cjk-mode) |
1287 |
|
(makunbound 'saved-utf-translate-cjk-mode) |
1288 |
|
|
1289 |
;;; Local Variables: |
;;; Local Variables: |
1290 |
;;; coding: iso-2022-7bit |
;;; coding: iso-2022-7bit |
1291 |
;;; End: |
;;; End: |