From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 7 Feb 1994 05:43:51 +0000 (+0000)
Subject: (hexl-mode-exit): Bind inhibit-read-only; don't alter buffer-read-only.
X-Git-Tag: emacs-19.34~10032
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=900014dd8b058b63500b7fee4c49a46e4a302584;p=emacs.git

(hexl-mode-exit): Bind inhibit-read-only; don't alter buffer-read-only.
---

diff --git a/lisp/hexl.el b/lisp/hexl.el
index c75d5dfcca2..219e0c6a027 100644
--- a/lisp/hexl.el
+++ b/lisp/hexl.el
@@ -229,13 +229,11 @@ With arg, don't unhexlify buffer."
   (interactive "p")
   (if (or (eq arg 1) (not arg))
       (let ((modified (buffer-modified-p))
-	    (read-only buffer-read-only)
+	    (inhibit-read-only t)
 	    (original-point (1+ (hexl-current-address))))
-	(setq buffer-read-only nil)
 	(dehexlify-buffer)
 	(remove-hook 'write-contents-hook 'hexl-save-buffer)
 	(set-buffer-modified-p modified)
-	(setq buffer-read-only read-only)
 	(goto-char original-point)))
   (setq mode-name hexl-mode-old-mode-name)
   (use-local-map hexl-mode-old-local-map)