sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-10-30 22:53:37 +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
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 (if backward
(- vlfi-file-size vlfi-start-pos) (- vlfi-file-size vlfi-start-pos)
vlfi-start-pos) vlfi-start-pos)
vlfi-file-size))) vlfi-file-size))
(initial-chunk t)
(prev 0))
(unwind-protect (unwind-protect
(catch 'end-of-file (catch 'end-of-file
(if backward (if backward
@@ -255,7 +257,12 @@ OP-TYPE specifies the file operation being performed over FILENAME."
(setq to-find (1- to-find))) (setq to-find (1- to-find)))
((zerop vlfi-start-pos) ((zerop vlfi-start-pos)
(throw 'end-of-file nil)) (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 (progress-reporter-update
search-reporter (- vlfi-file-size search-reporter (- vlfi-file-size
vlfi-end-pos))))) vlfi-end-pos)))))
@@ -264,7 +271,12 @@ OP-TYPE specifies the file operation being performed over FILENAME."
(setq to-find (1- to-find))) (setq to-find (1- to-find)))
((= vlfi-end-pos vlfi-file-size) ((= vlfi-end-pos vlfi-file-size)
(throw 'end-of-file nil)) (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 (progress-reporter-update search-reporter
vlfi-end-pos)))))) vlfi-end-pos))))))
(progress-reporter-done search-reporter) (progress-reporter-done search-reporter)