sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2024-10-05 18:30:51 +01:00
Code Issues Releases Wiki Activity

Adjust address parts of hexlified buffer according to vlf-start-pos.

Browse Source
This commit is contained in:
Andrey Kotlarski 2014-10-16 02:51:37 +03:00
parent 305d8022c4
commit 5dd9e2cd02
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
vlf-tune.el
View File

@ -171,13 +171,27 @@ FILE-NAME if given is to be used instead of `buffer-file-name'."
(or (file-remote-p file) ;writing to remote files can include network copying
(vlf-tune-add-measurement vlf-tune-write-bps size time))))
(defun vlf-hexl-adjust-addresses ()
"Adjust hexl address indicators according to `vlf-start-pos'."
(let ((pos (point))
(address vlf-start-pos))
(goto-char (point-min))
(while (re-search-forward "^[0-9a-f]+" nil t)
(replace-match (format "%08x" address))
(setq address (+ address hexl-bits)))
(goto-char pos)))
(defun vlf-tune-hexlify ()
"Activate `hexl-mode' and save time it takes."
(let ((time (car (vlf-time (hexlify-buffer)))))
(let* ((no-adjust (zerop vlf-start-pos))
(time (car (vlf-time (hexlify-buffer)
(or no-adjust
(vlf-hexl-adjust-addresses))))))
(setq hexl-max-address (+ (* (/ (1- (buffer-size))
(hexl-line-displen)) 16) 15))
(vlf-tune-add-measurement vlf-tune-hexl-bps
hexl-max-address time)))
(or no-adjust
(vlf-tune-add-measurement vlf-tune-hexl-bps
hexl-max-address time))))
(defun vlf-tune-dehexlify ()
"Exit `hexl-mode' and save time it takes."