sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-01-18 20:10:47 +00:00
Code Issues Releases Wiki Activity

Fix hexl scroll up called from scroll down behavior.

Browse Source
This commit is contained in:
Andrey Kotlarski 2014-02-15 02:35:46 +02:00
parent b235cf907c
commit 6bb60b72ad
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
vlf.el
View File

@ -222,15 +222,16 @@ When prefix argument is negative
(add-hook 'vlf-before-chunk-update 'vlf-hexl-before) (add-hook 'vlf-before-chunk-update 'vlf-hexl-before)
(add-hook 'vlf-after-chunk-update 'vlf-hexl-after) (add-hook 'vlf-after-chunk-update 'vlf-hexl-after)
(defadvice hexl-scroll-up (around vlf-scroll-up (defadvice hexl-scroll-up (around vlf-hexl-scroll-up
activate compile) activate compile)
"Slide to next batch if at end of buffer in `vlf-mode'." "Slide to next batch if at end of buffer in `vlf-mode'."
(if (and vlf-mode (pos-visible-in-window-p (point-max))) (if (and vlf-mode (pos-visible-in-window-p (point-max))
(or (not (numberp arg)) (< 0 arg)))
(progn (vlf-next-batch 1) (progn (vlf-next-batch 1)
(goto-char (point-min))) (goto-char (point-min)))
ad-do-it)) ad-do-it))
(defadvice hexl-scroll-down (around vlf-scroll-down (defadvice hexl-scroll-down (around vlf-hexl-scroll-down
activate compile) activate compile)
"Slide to previous batch if at beginning of buffer in `vlf-mode'." "Slide to previous batch if at beginning of buffer in `vlf-mode'."
(if (and vlf-mode (pos-visible-in-window-p (point-min))) (if (and vlf-mode (pos-visible-in-window-p (point-min)))