diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-02-07 05:43:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-02-07 05:43:51 +0000 |
| commit | 900014dd8b058b63500b7fee4c49a46e4a302584 (patch) | |
| tree | 07af323ff7585ffd9257dbe7f2bfcbc1b91279c1 /lisp/hexl.el | |
| parent | bb752f07fb8d8c504b6a81358c68fbfada3955da (diff) | |
| download | emacs-900014dd8b058b63500b7fee4c49a46e4a302584.tar.gz emacs-900014dd8b058b63500b7fee4c49a46e4a302584.tar.bz2 emacs-900014dd8b058b63500b7fee4c49a46e4a302584.zip | |
(hexl-mode-exit): Bind inhibit-read-only; don't alter buffer-read-only.
Diffstat (limited to 'lisp/hexl.el')
| -rw-r--r-- | lisp/hexl.el | 4 |
1 files changed, 1 insertions, 3 deletions
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) |