Mercurial > emacs

comparison lisp/hexl.el @ 5819:b047e246c13d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(hexl-mode-exit): Bind inhibit-read-only; don't alter buffer-read-only.
author Richard M. Stallman <rms@gnu.org>
date Mon, 07 Feb 1994 05:43:51 +0000
parents bdda7582b8cd
children 7a3b606e7d27
comparison
equal deleted inserted replaced
5818:bdda7582b8cd 5819:b047e246c13d
227 "Exit Hexl mode, returning to previous mode. 227 "Exit Hexl mode, returning to previous mode.
228 With arg, don't unhexlify buffer." 228 With arg, don't unhexlify buffer."
229 (interactive "p") 229 (interactive "p")
230 (if (or (eq arg 1) (not arg)) 230 (if (or (eq arg 1) (not arg))
231 (let ((modified (buffer-modified-p)) 231 (let ((modified (buffer-modified-p))
232 (read-only buffer-read-only) 232 (inhibit-read-only t)
233 (original-point (1+ (hexl-current-address)))) 233 (original-point (1+ (hexl-current-address))))
234 (setq buffer-read-only nil)
235 (dehexlify-buffer) 234 (dehexlify-buffer)
236 (remove-hook 'write-contents-hook 'hexl-save-buffer) 235 (remove-hook 'write-contents-hook 'hexl-save-buffer)
237 (set-buffer-modified-p modified) 236 (set-buffer-modified-p modified)
238 (setq buffer-read-only read-only)
239 (goto-char original-point))) 237 (goto-char original-point)))
240 (setq mode-name hexl-mode-old-mode-name) 238 (setq mode-name hexl-mode-old-mode-name)
241 (use-local-map hexl-mode-old-local-map) 239 (use-local-map hexl-mode-old-local-map)
242 (setq major-mode hexl-mode-old-major-mode) 240 (setq major-mode hexl-mode-old-major-mode)
243 ;; Kludge to update mode-line 241 ;; Kludge to update mode-line