From bf551cf70519a3033fef95f383d4735c46f25477 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 10 Aug 1999 16:40:00 +0000 Subject: [PATCH] (view-mode-disable): If buffer-read-only is nil, don't change it. --- lisp/view.el | 5 +++-- 1 file 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) "\ -- 2.39.5