mirror of
https://github.com/m00natic/vlfi.git
synced 2025-04-18 08:40:19 +01:00
Add jump to chunk command.
This commit is contained in:
parent
d5f2a36086
commit
2f201c56d5
6
vlfi.el
6
vlfi.el
@ -65,6 +65,7 @@
|
|||||||
(define-key map "[" 'vlfi-beginning-of-file)
|
(define-key map "[" 'vlfi-beginning-of-file)
|
||||||
(define-key map "]" 'vlfi-end-of-file)
|
(define-key map "]" 'vlfi-end-of-file)
|
||||||
(define-key map "e" 'vlfi-edit-mode)
|
(define-key map "e" 'vlfi-edit-mode)
|
||||||
|
(define-key map "j" 'vlfi-jump-to-chunk)
|
||||||
map)
|
map)
|
||||||
"Keymap for `vlfi-mode'.")
|
"Keymap for `vlfi-mode'.")
|
||||||
|
|
||||||
@ -203,6 +204,11 @@ With FROM-END prefix, start from the back."
|
|||||||
(ignore args)
|
(ignore args)
|
||||||
(vlfi-move-to-chunk vlfi-start-pos vlfi-end-pos))
|
(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
|
;;; batch movement
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user