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 | bf551cf70519a3033fef95f383d4735c46f25477 (patch) | |
| tree | 895660a27dcda9de7e98db5c5d36dcc5760ad7d7 /lisp/view.el | |
| parent | 19b7f6c9f0cfe9a59630f98714126edb6c7f8e48 (diff) | |
| download | emacs-bf551cf70519a3033fef95f383d4735c46f25477.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) "\ |