(outline-flag-region): Pass t as NOUNDO arg

to subst-char-in-region.  No need to restore buffer-modified-p by hand.
This commit is contained in:
Richard M. Stallman 1993-06-01 03:24:24 +00:00
parent 1216975440
commit 05cf4426ba

View file

@ -215,13 +215,10 @@ A heading line is one that starts with a `*' (or that
"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."