mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 02:51:31 -08:00
Code Issues Projects Releases Wiki Activity

* hexl.el (hexlify-buffer): Move point in proper range

Browse source 
if it is too large.
	(hexl-after-revert-hook): Update hexl-max-address.
	(hexl-address-to-marker): Doc fix.
This commit is contained in:
Phillip Rulon 1999-10-08 15:42:32 +00:00
parent 657f51c4d6
commit 059c2e18d1
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/hexl.el
View file

@ -251,6 +251,7 @@ You can use \\[hexl-find-file] to visit a file in hexl-mode.
(run-hooks 'hexl-mode-hook))
(defun hexl-after-revert-hook ()
(setq hexl-max-address (1- (buffer-size)))
(hexlify-buffer)
(set-buffer-modified-p nil))
@ -349,7 +350,7 @@ Ask the user for confirmation."
hexl-address))
(defun hexl-address-to-marker (address)
"Return marker for ADDRESS."
"Return buffer position for ADDRESS."
(interactive "nAddress: ")
(+ (* (/ address 16) 68) 11 (/ (* (% address 16) 5) 2)))
@ -611,7 +612,9 @@ This discards the buffer's undo information."
'raw-text-unix)
(t 'no-conversion))))
(buffer-undo-list t))
(shell-command-on-region (point-min) (point-max) hexlify-command t)))
(shell-command-on-region (point-min) (point-max) hexlify-command t)
(if (> (point) (hexl-address-to-marker hexl-max-address))
(hexl-goto-address hexl-max-address))))
(defun dehexlify-buffer ()
"Convert a hexl format buffer to binary.