# HG changeset patch # User Richard M. Stallman # Date 760599831 0 # Node ID b047e246c13db3d5b9aae8358e0cc692f62975f1 # Parent bdda7582b8cdd4aac1e798d8d44ad227893558ac (hexl-mode-exit): Bind inhibit-read-only; don't alter buffer-read-only. diff -r bdda7582b8cd -r b047e246c13d lisp/hexl.el --- a/lisp/hexl.el Mon Feb 07 05:42:40 1994 +0000 +++ b/lisp/hexl.el Mon Feb 07 05:43:51 1994 +0000 @@ -229,13 +229,11 @@ (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)