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

Standard naming for chunk update hooks.

Browse Source
This commit is contained in:
Andrey Kotlarski 2015-01-01 16:11:23 +02:00
parent fd90b3a6b1
commit ac1aa160e6
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
README.org
View File

@ -189,7 +189,7 @@ first one.
** Move hooks ** Move hooks
A couple of hooks are run whenever updating chunk: A couple of hooks are run whenever updating chunk:
*vlf-before-chunk-update* and *vlf-after-chunk-update*. *vlf-before-chunk-update-hook* and *vlf-after-chunk-update-hook*.
** Batch move hooks ** Batch move hooks

14
vlf-base.el
View File

@ -1,6 +1,6 @@
;;; vlf-base.el --- VLF primitive operations -*- lexical-binding: t -*- ;;; vlf-base.el --- VLF primitive operations -*- lexical-binding: t -*-
;; Copyright (C) 2014 Free Software Foundation, Inc. ;; Copyright (C) 2014-2015 Free Software Foundation, Inc.
;; Keywords: large files, chunk ;; Keywords: large files, chunk
;; Author: Andrey Kotlarski <m00naticus@gmail.com> ;; Author: Andrey Kotlarski <m00naticus@gmail.com>
@ -29,11 +29,11 @@
(require 'vlf-tune) (require 'vlf-tune)
(defcustom vlf-before-chunk-update nil (defcustom vlf-before-chunk-update-hook nil
"Hook that runs before chunk update." "Hook that runs before chunk update."
:group 'vlf :type 'hook) :group 'vlf :type 'hook)
(defcustom vlf-after-chunk-update nil (defcustom vlf-after-chunk-update-hook nil
"Hook that runs after chunk update." "Hook that runs after chunk update."
:group 'vlf :type 'hook) :group 'vlf :type 'hook)
@ -146,7 +146,7 @@ bytes added to the end."
((or (not modified) ((or (not modified)
(and (<= start vlf-start-pos) (<= edit-end end)) (and (<= start vlf-start-pos) (<= edit-end end))
(y-or-n-p "Chunk modified, are you sure? ")) (y-or-n-p "Chunk modified, are you sure? "))
(run-hooks 'vlf-before-chunk-update) (run-hooks 'vlf-before-chunk-update-hook)
(when (and hexl (not restore-hexl)) (when (and hexl (not restore-hexl))
(if (consp buffer-undo-list) (if (consp buffer-undo-list)
(setq buffer-undo-list nil)) (setq buffer-undo-list nil))
@ -215,7 +215,7 @@ bytes added to the end."
(when hexl (when hexl
(vlf-tune-hexlify) (vlf-tune-hexlify)
(setq restore-hexl nil)) (setq restore-hexl nil))
(run-hooks 'vlf-after-chunk-update) (run-hooks 'vlf-after-chunk-update-hook)
(cons shift-start shift-end)))))) (cons shift-start shift-end))))))
(when restore-hexl (when restore-hexl
(vlf-tune-hexlify) (vlf-tune-hexlify)
@ -226,7 +226,7 @@ bytes added to the end."
"Unconditionally move to chunk enclosed by START END bytes. "Unconditionally move to chunk enclosed by START END bytes.
Return number of bytes moved back for proper decoding and number of Return number of bytes moved back for proper decoding and number of
bytes added to the end." bytes added to the end."
(run-hooks 'vlf-before-chunk-update) (run-hooks 'vlf-before-chunk-update-hook)
(let ((adjust-start t) (let ((adjust-start t)
(adjust-end t) (adjust-end t)
(is-hexl (derived-mode-p 'hexl-mode))) (is-hexl (derived-mode-p 'hexl-mode)))
@ -259,7 +259,7 @@ bytes added to the end."
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(or (eq buffer-undo-list t) (or (eq buffer-undo-list t)
(setq buffer-undo-list nil)) (setq buffer-undo-list nil))
(run-hooks 'vlf-after-chunk-update) (run-hooks 'vlf-after-chunk-update-hook)
shifts))) shifts)))
(defun vlf-insert-file-contents (start end adjust-start adjust-end (defun vlf-insert-file-contents (start end adjust-start adjust-end