# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1079663597 0
# Node ID a5520bf073bb43ec003f1b0d540393b32bf0bb66
# Parent  b925e32745472af93947c77d735e326f364089e0
(compose-region): Use restore-buffer-modified-p.

diff -r b925e3274547 -r a5520bf073bb lisp/composite.el
--- a/lisp/composite.el	Fri Mar 19 01:03:22 2004 +0000
+++ b/lisp/composite.el	Fri Mar 19 02:33:17 2004 +0000
@@ -193,7 +193,7 @@
     (if (or (vectorp components) (listp components))
 	(setq components (encode-composition-components components)))
     (compose-region-internal start end components modification-func)
-    (set-buffer-modified-p modified-p)))
+    (restore-buffer-modified-p modified-p)))
 
 ;;;###autoload
 (defun decompose-region (start end)