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

Enhance search to cover in between chunk boundaries.

Browse Source
This commit is contained in:
Andrey Kotlarski 2013-03-30 02:51:12 +02:00
parent 9e27aeb057
commit 36411c3632
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
vlfi.el
View File

@ -246,7 +246,9 @@ OP-TYPE specifies the file operation being performed over FILENAME."
(if backward
(- vlfi-file-size vlfi-start-pos)
vlfi-start-pos)
vlfi-file-size)))
vlfi-file-size))
(initial-chunk t)
(prev 0))
(unwind-protect
(catch 'end-of-file
(if backward
@ -255,7 +257,12 @@ OP-TYPE specifies the file operation being performed over FILENAME."
(setq to-find (1- to-find)))
((zerop vlfi-start-pos)
(throw 'end-of-file nil))
(t (vlfi-prev-batch 1)
(t (if initial-chunk
(setq initial-chunk nil)
(let ((inhibit-read-only t))
(delete-region prev (point-max))))
(setq prev (point-min))
(vlfi-prev-batch -1)
(progress-reporter-update
search-reporter (- vlfi-file-size
vlfi-end-pos)))))
@ -264,7 +271,12 @@ OP-TYPE specifies the file operation being performed over FILENAME."
(setq to-find (1- to-find)))
((= vlfi-end-pos vlfi-file-size)
(throw 'end-of-file nil))
(t (vlfi-next-batch 1)
(t (if initial-chunk
(setq initial-chunk nil)
(let ((inhibit-read-only t))
(delete-region (point-min) prev)))
(setq prev (point-max))
(vlfi-next-batch -1)
(progress-reporter-update search-reporter
vlfi-end-pos))))))
(progress-reporter-done search-reporter)