mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1994-02-07 05:42:40 +00:00
parent 6c61e6a9bc
commit bb752f07fb
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/hexl.el
View File

@ -171,16 +171,14 @@ You can use \\[hexl-find-file] to visit a file in hexl-mode.
(add-hook 'write-contents-hooks 'hexl-save-buffer)
(let ((modified (buffer-modified-p))
(read-only buffer-read-only)
(inhibit-read-only t)
(original-point (1- (point))))
(if (not (or (eq arg 1) (not arg)))
;; if no argument then we guess at hexl-max-address
;; if no argument then we guess at hexl-max-address
(setq hexl-max-address (+ (* (/ (1- (buffer-size)) 68) 16) 15))
(setq buffer-read-only nil)
(setq hexl-max-address (1- (buffer-size)))
(hexlify-buffer)
(set-buffer-modified-p modified)
(setq buffer-read-only read-only)
(hexl-goto-address original-point)))))
(defvar hexl-in-save-buffer nil)