mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Make hexl scrolling commands work more like the normal ones

Browse Source 
* lisp/hexl.el (hexl-scroll-down):
(hexl-scroll-up): Heed `next-screen-context-lines' (bug#7031).
This commit is contained in:
Lars Ingebrigtsen 2020-12-08 17:57:10 +01:00
parent 3440bd0d53
commit ef711b1556
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
etc/NEWS
View File

@ -1370,6 +1370,12 @@ This new command (bound to 'C-c C-l') regenerates the current hunk.
** Miscellaneous
---
*** 'hexl-mode' scrolling commands now heed 'next-screen-context-lines'.
Previously, 'hexl-scroll-down' and 'hexl-scroll-up' would scroll
up/down an entire window, but they now work more like the standard
scrolling commands.
---
*** Errors in 'kill-emacs-hook' no longer prevent Emacs from shutting down.
If a function in that hook signals an error in an interactive Emacs,

6
lisp/hexl.el
View File

@ -724,7 +724,8 @@ With prefix arg N, puts point N bytes of the way from the true beginning."
(setq arg (if (null arg)
(- (window-height)
1
(if ruler-mode 1 0))
(if ruler-mode 1 0)
next-screen-context-lines)
(prefix-numeric-value arg)))
(hexl-scroll-up (- arg)))
@ -735,7 +736,8 @@ If there's no byte at the target address, move to the first or last line."
(setq arg (if (null arg)
(- (window-height)
1
(if ruler-mode 1 0))
(if ruler-mode 1 0)
next-screen-context-lines)
(prefix-numeric-value arg)))
(let* ((movement (* arg 16))
(address (hexl-current-address))