diff options
| author | Richard M. Stallman <rms@gnu.org> | 1992-06-26 04:13:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1992-06-26 04:13:37 +0000 |
| commit | 9371315a0552c2eb37cb5c91542948e0efd34424 (patch) | |
| tree | 64136b8c174fb20544f60d55d6cd1bc2c06832de /lisp/textmodes | |
| parent | d5a92c0640cfd8dda1fd53f793ae9afe723d4c5b (diff) | |
| download | emacs-9371315a0552c2eb37cb5c91542948e0efd34424.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/ooutline.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el index 3580c1e54b5..ad7512d6cf7 100644 --- a/lisp/textmodes/ooutline.el +++ b/lisp/textmodes/ooutline.el @@ -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) |