# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 709532017 0
# Node ID 2e4dd37cf7b2a7446faea48ec7174199ff692839
# Parent  5d684b81ac6bc204645ad209427353762487b611
*** empty log message ***

diff -r 5d684b81ac6b -r 2e4dd37cf7b2 lisp/textmodes/ooutline.el
--- a/lisp/textmodes/ooutline.el	Wed Jun 24 22:42:10 1992 +0000
+++ b/lisp/textmodes/ooutline.el	Fri Jun 26 04:13:37 1992 +0000
@@ -200,7 +200,8 @@
   "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 ((modp (buffer-modified-p)))
+  (let (buffer-read-only
+	(modp (buffer-modified-p)))
     (unwind-protect
         (subst-char-in-region from to
 			      (if (= flag ?\n) ?\^M ?\n)