# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738905064 0
# Node ID 898d7a33c038ef0918e1ed789896e53a9810e799
# Parent  13ddc81f0b43570af183f7fcbbe11664d150e8a4
(outline-flag-region): Pass t as NOUNDO arg
to subst-char-in-region.  No need to restore buffer-modified-p by hand.

diff -r 13ddc81f0b43 -r 898d7a33c038 lisp/textmodes/ooutline.el
--- a/lisp/textmodes/ooutline.el	Tue Jun 01 00:54:52 1993 +0000
+++ b/lisp/textmodes/ooutline.el	Tue Jun 01 03:24:24 1993 +0000
@@ -215,13 +215,10 @@
   "Hides or shows lines from FROM to TO, according to FLAG.
 If FLAG is `\\n' (newline character) then text is shown,
 while if FLAG is `\\^M' (control-M) the text is hidden."
-  (let (buffer-read-only
-	(modp (buffer-modified-p)))
-    (unwind-protect
-        (subst-char-in-region from to
-			      (if (= flag ?\n) ?\^M ?\n)
-			      flag)
-     (set-buffer-modified-p modp))))
+  (let (buffer-read-only)
+    (subst-char-in-region from to
+			  (if (= flag ?\n) ?\^M ?\n)
+			  flag t)))
 
 (defun hide-entry ()
   "Hide the body directly following this heading."