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 () |