From 2f201c56d56226c61b609d5e65c7c7bd7ebc08b7 Mon Sep 17 00:00:00 2001 From: Andrey Kotlarski Date: Sat, 13 Apr 2013 22:57:09 +0300 Subject: [PATCH] Add jump to chunk command. --- vlfi.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/vlfi.el b/vlfi.el index aa95854..8013d3a 100644 --- a/vlfi.el +++ b/vlfi.el @@ -65,6 +65,7 @@ (define-key map "[" 'vlfi-beginning-of-file) (define-key map "]" 'vlfi-end-of-file) (define-key map "e" 'vlfi-edit-mode) + (define-key map "j" 'vlfi-jump-to-chunk) map) "Keymap for `vlfi-mode'.") @@ -203,6 +204,11 @@ With FROM-END prefix, start from the back." (ignore args) (vlfi-move-to-chunk vlfi-start-pos vlfi-end-pos)) +(defun vlfi-jump-to-chunk (n) + "Go to to chunk N." + (interactive "nGoto to chunk: ") + (vlfi-move-to-batch (* (1- n) vlfi-batch-size))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; batch movement