Mercurial > emacs
comparison lisp/hexl.el @ 5818:bdda7582b8cd
(hexl-mode): Bind inhibit-read-only; don't alter buffer-read-only.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 07 Feb 1994 05:42:40 +0000 |
parents | 0873b536e71d |
children | b047e246c13d |
comparison
equal
deleted
inserted
replaced
5817:6229dd3050be | 5818:bdda7582b8cd |
---|---|
169 | 169 |
170 (make-local-variable 'write-contents-hooks) | 170 (make-local-variable 'write-contents-hooks) |
171 (add-hook 'write-contents-hooks 'hexl-save-buffer) | 171 (add-hook 'write-contents-hooks 'hexl-save-buffer) |
172 | 172 |
173 (let ((modified (buffer-modified-p)) | 173 (let ((modified (buffer-modified-p)) |
174 (read-only buffer-read-only) | 174 (inhibit-read-only t) |
175 (original-point (1- (point)))) | 175 (original-point (1- (point)))) |
176 (if (not (or (eq arg 1) (not arg))) | 176 (if (not (or (eq arg 1) (not arg))) |
177 ;; if no argument then we guess at hexl-max-address | 177 ;; if no argument then we guess at hexl-max-address |
178 (setq hexl-max-address (+ (* (/ (1- (buffer-size)) 68) 16) 15)) | 178 (setq hexl-max-address (+ (* (/ (1- (buffer-size)) 68) 16) 15)) |
179 (setq buffer-read-only nil) | |
180 (setq hexl-max-address (1- (buffer-size))) | 179 (setq hexl-max-address (1- (buffer-size))) |
181 (hexlify-buffer) | 180 (hexlify-buffer) |
182 (set-buffer-modified-p modified) | 181 (set-buffer-modified-p modified) |
183 (setq buffer-read-only read-only) | |
184 (hexl-goto-address original-point))))) | 182 (hexl-goto-address original-point))))) |
185 | 183 |
186 (defvar hexl-in-save-buffer nil) | 184 (defvar hexl-in-save-buffer nil) |
187 | 185 |
188 (defun hexl-save-buffer () | 186 (defun hexl-save-buffer () |