sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-02-24 05:48:06 +00:00
Code Issues Releases Wiki Activity

Change some VLFI key-bindings not to override special-mode ones.

Browse Source
This commit is contained in:
Andrey Kotlarski 2013-04-08 00:57:53 +03:00
parent 1948f3ea4e
commit 995a7a0988
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
vlfi.el
View File

@ -47,7 +47,7 @@
:type 'integer :type 'integer
:group 'vlfi) :group 'vlfi)
;; Keep track of file position. ;;; Keep track of file position.
(defvar vlfi-start-pos 0 (defvar vlfi-start-pos 0
"Absolute position of the visible chunk start.") "Absolute position of the visible chunk start.")
(defvar vlfi-end-pos vlfi-batch-size (defvar vlfi-end-pos vlfi-batch-size
@ -65,10 +65,10 @@
(vlfi-change-batch-size t))) (vlfi-change-batch-size t)))
(define-key map "s" 'vlfi-re-search-forward) (define-key map "s" 'vlfi-re-search-forward)
(define-key map "r" 'vlfi-re-search-backward) (define-key map "r" 'vlfi-re-search-backward)
(define-key map ">" (lambda () "Jump to end of file content." (define-key map "]" (lambda () "Jump to end of file content."
(interactive) (interactive)
(vlfi-insert-file buffer-file-name t))) (vlfi-insert-file buffer-file-name t)))
(define-key map "<" (lambda () "Jump to beginning of file content." (define-key map "[" (lambda () "Jump to beginning of file content."
(interactive) (interactive)
(vlfi-insert-file buffer-file-name))) (vlfi-insert-file buffer-file-name)))
(define-key map "e" 'vlfi-edit-mode) (define-key map "e" 'vlfi-edit-mode)