diff options
| author | Karl Heuer <kwzh@gnu.org> | 1999-08-10 16:40:00 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1999-08-10 16:40:00 +0000 |
| commit | d1f37cb519a21b5b462ad7a72d7d6f71e4d085f7 (patch) | |
| tree | 8ef22cfb573c0f948d0fb8eb9cfad2fd5f79565e /lisp/view.el | |
| parent | 623c1bbb39324d870992a4721fc4c142715e90e5 (diff) | |
| download | emacs-d1f37cb519a21b5b462ad7a72d7d6f71e4d085f7.tar.gz | |
(view-mode-disable): If buffer-read-only is nil,
don't change it.
Diffstat (limited to 'lisp/view.el')
| -rw-r--r-- | lisp/view.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/view.el b/lisp/view.el index 8ac7a139713..61c1ddf9a00 100644 --- a/lisp/view.el +++ b/lisp/view.el @@ -456,8 +456,9 @@ Entry to view-mode runs the normal hook `view-mode-hook'." (and view-overlay (delete-overlay view-overlay)) (force-mode-line-update) (setq view-mode nil - Helper-return-blurb view-old-Helper-return-blurb - buffer-read-only view-old-buffer-read-only)) + Helper-return-blurb view-old-Helper-return-blurb) + (if buffer-read-only + (setq buffer-read-only view-old-buffer-read-only))) ;;;###autoload (defun view-mode-enter (&optional return-to exit-action) "\ |