mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(view-mode-disable): Kill local binding of view-read-only.

Browse source
This commit is contained in:
Richard M. Stallman 2000-03-19 15:56:40 +00:00
parent e53ae11c20
commit b75c9917df
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/view.el
View file

@ -458,6 +458,14 @@ Entry to view-mode runs the normal hook `view-mode-hook'."
(remove-hook 'change-major-mode-hook 'view-mode-disable t)
(and view-overlay (delete-overlay view-overlay))
(force-mode-line-update)
;; Calling toggle-read-only while View mode is enabled
;; sets view-read-only to t as a buffer-local variable
;; after exiting View mode. That arranges that the next toggle-read-only
;; will reenable View mode.
;; Cancelling View mode in any other way should cancel that, too,
;; so that View mode stays off if toggle-read-only is called.
(if (local-variable-p 'view-read-only)
(kill-local-variable 'view-read-only))
(setq view-mode nil
Helper-return-blurb view-old-Helper-return-blurb)
(if buffer-read-only