Mercurial > emacs

changeset 3376:898d7a33c038

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(outline-flag-region): Pass t as NOUNDO arg to subst-char-in-region. No need to restore buffer-modified-p by hand.
author Richard M. Stallman <rms@gnu.org>
date Tue, 01 Jun 1993 03:24:24 +0000
parents 13ddc81f0b43
children 68cd0dabfce7
files lisp/textmodes/ooutline.el
diffstat 1 files changed, 4 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- 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."