diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-06-01 03:24:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-06-01 03:24:24 +0000 |
| commit | 05cf4426bae3e17df5a6e8af31cffd39975220e2 (patch) | |
| tree | f94165b7a4204cb6090956fe4e5655e7c65aa0fd /lisp/textmodes | |
| parent | 1216975440ddcdc7967efbef7ea7051e67906b54 (diff) | |
| download | emacs-05cf4426bae3e17df5a6e8af31cffd39975220e2.tar.gz | |
(outline-flag-region): Pass t as NOUNDO arg
to subst-char-in-region. No need to restore buffer-modified-p by hand.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/ooutline.el | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el index c0241102d1c..aac0d890126 100644 --- a/lisp/textmodes/ooutline.el +++ b/lisp/textmodes/ooutline.el @@ -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." |