diff options
| author | Kenichi Handa <[email protected]> | 2006-10-05 12:20:14 +0000 |
|---|---|---|
| committer | Kenichi Handa <[email protected]> | 2006-10-05 12:20:14 +0000 |
| commit | c02e996e47b3778b83a726b6876a03bcb3bec986 (patch) | |
| tree | 7777deca7dd3bf88c96d633c3a8d24f24d22aca1 /lisp/composite.el | |
| parent | 42f557e54187491ef9833f4fbb29fb524da408c7 (diff) | |
(auto-composition-after-change): Remove
`auto-composed' property instead of put nil to it.
(toggle-auto-composition): Likewise.
Diffstat (limited to 'lisp/composite.el')
| -rw-r--r-- | lisp/composite.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/composite.el b/lisp/composite.el index ddf56d3543..b7a4caab72 100644 --- a/lisp/composite.el +++ b/lisp/composite.el @@ -543,7 +543,7 @@ Auto Composition mode in all buffers (this is the default)." end (1+ end)) (setq func2 nil)))) (if (< start end) - (put-text-property start end 'auto-composed nil)))))) + (remove-text-properties start end '(auto-composed nil))))))) (defun turn-on-auto-composition-if-enabled () (if enable-multibyte-characters @@ -576,7 +576,8 @@ With arg, enable it iff arg is positive." (save-buffer-state nil (save-restriction (widen) - (put-text-property (point-min) (point-max) 'auto-composed nil))))) + (remove-text-properties (point-min) (point-max) + '(auto-composed nil)))))) (defun auto-compose-region (from to) "Force automatic character composition on the region FROM and TO." |