# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1160050814 0
# Node ID e3f4e9ea5df69c981e749f3af129dcd4cd422b75
# Parent  f70eb92de85e75ba5db9668b19d68fe9bf006a6a
(auto-composition-after-change): Remove
`auto-composed' property instead of put nil to it.
(toggle-auto-composition): Likewise.

diff -r f70eb92de85e -r e3f4e9ea5df6 lisp/composite.el
--- a/lisp/composite.el	Wed Oct 04 07:09:43 2006 +0000
+++ b/lisp/composite.el	Thu Oct 05 12:20:14 2006 +0000
@@ -543,7 +543,7 @@
 		      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 @@
     (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."