procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix scrolling in hexl-mode when ruler-mode is on

Browse source 
* lisp/hexl.el (hexl-scroll-down):
(hexl-scroll-up): Take ruler-mode into account when computing the
number of lines (bug#7031).  These commands would previously jump
one line too many by default, skipping one line.
This commit is contained in:
Lars Ingebrigtsen 2020-12-08 17:48:40 +01:00
parent 26b198cef9
commit 3440bd0d53
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/hexl.el
View file

@ -722,7 +722,9 @@ With prefix arg N, puts point N bytes of the way from the true beginning."
"Scroll hexl buffer window upward ARG lines; or near full window if no ARG."
(interactive "P")
(setq arg (if (null arg)
(1- (window-height))
(- (window-height)
1
(if ruler-mode 1 0))
(prefix-numeric-value arg)))
(hexl-scroll-up (- arg)))
@ -731,7 +733,9 @@ With prefix arg N, puts point N bytes of the way from the true beginning."
If there's no byte at the target address, move to the first or last line."
(interactive "P")
(setq arg (if (null arg)
(1- (window-height))
(- (window-height)
1
(if ruler-mode 1 0))
(prefix-numeric-value arg)))
(let* ((movement (* arg 16))
(address (hexl-current-address))