sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2024-10-05 18:30:51 +01:00
Code Issues Releases Wiki Activity

- don't adjust start on next occur batch

Browse Source 
- don't gather profile info for adjustment insert as it's too small
This commit is contained in:
Andrey Kotlarski 2014-12-17 01:43:12 +02:00
parent b14c912afb
commit bc398d6053
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
vlf-base.el
View File

@ -307,8 +307,8 @@ Return number of bytes moved back for proper decoding."
(strict (or (= sample-end vlf-file-size) (strict (or (= sample-end vlf-file-size)
(and (not adjust-end) (= sample-end end)))) (and (not adjust-end) (= sample-end end))))
(shift 0)) (shift 0))
(while (and (progn (vlf-insert-file-contents-1 safe-start (while (and (progn (insert-file-contents buffer-file-name
sample-end) nil safe-start sample-end)
(not (zerop safe-start))) (not (zerop safe-start)))
(< shift 3) (< shift 3)
(let ((diff (- chunk-size (let ((diff (- chunk-size

3
vlf-occur.el
View File

@ -341,7 +341,8 @@ Prematurely ending indexing will still show what's found so far."
(vlf-tune-encode-length (point-min) (vlf-tune-encode-length (point-min)
batch-point)))))) batch-point))))))
(vlf-tune-batch tune-types) (vlf-tune-batch tune-types)
(vlf-move-to-chunk start (+ start vlf-batch-size))) (setq vlf-end-pos start) ;not to adjust start
(vlf-move-to-chunk-2 start (+ start vlf-batch-size)))
(setq match-start-point (point-min) (setq match-start-point (point-min)
match-end-point match-start-point) match-end-point match-start-point)
(goto-char match-end-point) (goto-char match-end-point)