217 |
(set-buffer-modified-p modified)) |
(set-buffer-modified-p modified)) |
218 |
(make-local-variable 'hexl-max-address) |
(make-local-variable 'hexl-max-address) |
219 |
(setq hexl-max-address max-address) |
(setq hexl-max-address max-address) |
220 |
(hexl-goto-address original-point)) |
(condition-case nil |
221 |
|
(hexl-goto-address original-point) |
222 |
|
(error nil))) |
223 |
|
|
224 |
;; We do not turn off the old major mode; instead we just |
;; We do not turn off the old major mode; instead we just |
225 |
;; override most of it. That way, we can restore it perfectly. |
;; override most of it. That way, we can restore it perfectly. |
407 |
Signal error if ADDRESS out of range." |
Signal error if ADDRESS out of range." |
408 |
(interactive "nAddress: ") |
(interactive "nAddress: ") |
409 |
(if (or (< address 0) (> address hexl-max-address)) |
(if (or (< address 0) (> address hexl-max-address)) |
410 |
(error "Out of hexl region")) |
(error "Out of hexl region")) |
411 |
(goto-char (hexl-address-to-marker address))) |
(goto-char (hexl-address-to-marker address))) |
412 |
|
|
413 |
(defun hexl-goto-hex-address (hex-address) |
(defun hexl-goto-hex-address (hex-address) |