diff options
| author | Kenichi Handa | 1998-10-21 11:50:56 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-10-21 11:50:56 +0000 |
| commit | 98a663f11e89643b456f1f31acc9cd615a49efad (patch) | |
| tree | 3613a23ced565399e5d7586612c98ba32f9fb2ee | |
| parent | 1300d43f6c50cdf58ba81c01c759c96b1fddbc5c (diff) | |
| download | emacs-98a663f11e89643b456f1f31acc9cd615a49efad.tar.gz emacs-98a663f11e89643b456f1f31acc9cd615a49efad.zip | |
Setup charset property nospace-between-words.
| -rw-r--r-- | lisp/international/characters.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/international/characters.el b/lisp/international/characters.el index 6df232ef649..b378e9825d7 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el | |||
| @@ -626,13 +626,15 @@ | |||
| 626 | (setq l (cdr l)))) | 626 | (setq l (cdr l)))) |
| 627 | 627 | ||
| 628 | 628 | ||
| 629 | ;; Setup auto-fill-chars for characters that should invoke auto-filling. | 629 | ;; Setup auto-fill-chars for charsets that should invoke auto-filling. |
| 630 | ;; SPACE and NEWLIE are already set. | 630 | ;; SPACE and NEWLIE are already set. Also put `nospace-between-words' |
| 631 | ;; property to the charsets. | ||
| 631 | (let ((l '(katakana-jisx0201 | 632 | (let ((l '(katakana-jisx0201 |
| 632 | japanese-jisx0208 japanese-jisx0212 | 633 | japanese-jisx0208 japanese-jisx0212 |
| 633 | chinese-gb2312 chinese-big5-1 chinese-big5-2))) | 634 | chinese-gb2312 chinese-big5-1 chinese-big5-2))) |
| 634 | (while l | 635 | (while l |
| 635 | (aset auto-fill-chars (make-char (car l)) t) | 636 | (aset auto-fill-chars (make-char (car l)) t) |
| 637 | (put-charset-property (car l) 'nospace-between-words t) | ||
| 636 | (setq l (cdr l)))) | 638 | (setq l (cdr l)))) |
| 637 | 639 | ||
| 638 | ;;; Local Variables: | 640 | ;;; Local Variables: |