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

Load hexl advices after load and move vlf group definition.

Browse Source
This commit is contained in:
Andrey Kotlarski 2014-02-23 00:40:20 +02:00
parent 6476c1be6a
commit ee19f811ae
2 changed files with 26 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
vlf-base.el
View File

@ -27,9 +27,6 @@
;;; Code: ;;; Code:
(defgroup vlf nil "View Large Files in Emacs."
:prefix "vlf-" :group 'files)
(defcustom vlf-batch-size 1024 (defcustom vlf-batch-size 1024
"Defines how large each batch of file data is (in bytes)." "Defines how large each batch of file data is (in bytes)."
:group 'vlf :type 'integer) :group 'vlf :type 'integer)

7
vlf.el
View File

@ -39,6 +39,9 @@
;;; Code: ;;; Code:
(defgroup vlf nil "View Large Files in Emacs."
:prefix "vlf-" :group 'files)
(defcustom vlf-before-batch-functions nil (defcustom vlf-before-batch-functions nil
"Hook that runs before multiple batch operations. "Hook that runs before multiple batch operations.
One argument is supplied that specifies current action. Possible One argument is supplied that specifies current action. Possible
@ -222,6 +225,8 @@ 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)
(eval-after-load "hexl"
'(progn
(defadvice hexl-save-buffer (around vlf-hexl-save (defadvice hexl-save-buffer (around vlf-hexl-save
activate compile) activate compile)
"Prevent hexl save if `vlf-mode' is active." "Prevent hexl save if `vlf-mode' is active."
@ -244,7 +249,7 @@ When prefix argument is negative
(if (and vlf-mode (pos-visible-in-window-p (point-min))) (if (and vlf-mode (pos-visible-in-window-p (point-min)))
(progn (vlf-prev-batch 1) (progn (vlf-prev-batch 1)
(goto-char (point-max))) (goto-char (point-max)))
ad-do-it)) ad-do-it))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; utilities ;;; utilities