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

Refactor vlf-query-replace and don't adjust batch size if only

Browse Source 
statistics are enabled.
This commit is contained in:
Andrey Kotlarski 2014-09-26 15:01:27 +03:00
parent f63ea96c2b
commit 3cfa9b1935
2 changed files with 29 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
vlf-search.el
View File

@ -328,45 +328,36 @@ Assume `hexl-mode' is active."
(defun vlf-query-replace (regexp to-string &optional delimited backward)
"Query replace over whole file matching REGEXP with TO-STRING.
Third arg DELIMITED (prefix arg if interactive), if non-nil, means replace
Third arg DELIMITED (prefix arg if interactive), if non-nil, replace
only matches surrounded by word boundaries. A negative prefix arg means
replace BACKWARD."
(interactive
(let ((common (query-replace-read-args
(concat "Query replace over whole file"
(if current-prefix-arg
(if (eq current-prefix-arg '-)
" backward"
" word")
"")
" regexp")
t)))
(list (nth 0 common) (nth 1 common) (nth 2 common) (nth 3 common))))
(query-replace-regexp regexp to-string delimited nil nil backward)
(if (buffer-modified-p)
(save-buffer))
(let ((match-found t)
(automatic (eq (lookup-key query-replace-map
(vector last-input-event))
'automatic)))
(while (and match-found (if backward
(not (zerop vlf-start-pos))
(< vlf-end-pos vlf-file-size)))
(setq match-found (vlf-re-search regexp 1 backward
(min 1024 (/ vlf-batch-size 8))))
(when match-found
(cond ((not automatic)
(query-replace-regexp regexp to-string delimited
nil nil backward)
(setq automatic (eq (lookup-key query-replace-map
(vector last-input-event))
'automatic)))
(backward (while (re-search-backward regexp nil t)
(replace-match to-string)))
(t (while (re-search-forward regexp nil t)
(replace-match to-string))))
(if (buffer-modified-p)
(save-buffer))))))
(interactive (let ((common (query-replace-read-args
(concat "Query replace over whole file"
(if current-prefix-arg
(if (eq current-prefix-arg '-)
" backward"
" word")
"")
" regexp")
t)))
(list (nth 0 common) (nth 1 common) (nth 2 common)
(nth 3 common))))
(let ((not-automatic t))
(while (vlf-re-search regexp 1 backward
(min 1024 (/ vlf-batch-size 8)))
(cond (not-automatic
(query-replace-regexp regexp to-string delimited
nil nil backward)
(setq not-automatic
(not (eq (lookup-key query-replace-map
(vector last-input-event))
'automatic))))
(backward (while (re-search-backward regexp nil t)
(replace-match to-string)))
(t (while (re-search-forward regexp nil t)
(replace-match to-string))))
(if (buffer-modified-p)
(save-buffer)))))
(provide 'vlf-search)

2
vlf-tune.el
View File

@ -382,7 +382,7 @@ Suitable for multiple batch operations."
Best considered where primitive operations total is closest to
`vlf-tune-load-time'. If MIN-IDX and MAX-IDX are given,
confine search to this region."
(if vlf-tune-enabled
(if (eq vlf-tune-enabled t)
(progn
(setq min-idx (max 0 (or min-idx 0))
max-idx (min (or max-idx vlf-tune-max)