Commit 9371315a authored by Richard M. Stallman's avatar Richard M. Stallman

*** empty log message ***

parent d5a92c06
......@@ -200,7 +200,8 @@ 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 ((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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment