diff options
| author | Karl Heuer | 1999-08-10 16:40:00 +0000 |
|---|---|---|
| committer | Karl Heuer | 1999-08-10 16:40:00 +0000 |
| commit | bf551cf70519a3033fef95f383d4735c46f25477 (patch) | |
| tree | 895660a27dcda9de7e98db5c5d36dcc5760ad7d7 | |
| parent | 19b7f6c9f0cfe9a59630f98714126edb6c7f8e48 (diff) | |
| download | emacs-bf551cf70519a3033fef95f383d4735c46f25477.tar.gz emacs-bf551cf70519a3033fef95f383d4735c46f25477.zip | |
(view-mode-disable): If buffer-read-only is nil,
don't change it.
| -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'." | |||
| 456 | (and view-overlay (delete-overlay view-overlay)) | 456 | (and view-overlay (delete-overlay view-overlay)) |
| 457 | (force-mode-line-update) | 457 | (force-mode-line-update) |
| 458 | (setq view-mode nil | 458 | (setq view-mode nil |
| 459 | Helper-return-blurb view-old-Helper-return-blurb | 459 | Helper-return-blurb view-old-Helper-return-blurb) |
| 460 | buffer-read-only view-old-buffer-read-only)) | 460 | (if buffer-read-only |
| 461 | (setq buffer-read-only view-old-buffer-read-only))) | ||
| 461 | 462 | ||
| 462 | ;;;###autoload | 463 | ;;;###autoload |
| 463 | (defun view-mode-enter (&optional return-to exit-action) "\ | 464 | (defun view-mode-enter (&optional return-to exit-action) "\ |