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

Lower tramp verbosity level when dealing with multiple batches.

Browse Source
This commit is contained in:
Andrey Kotlarski 2014-01-30 01:55:39 +02:00
parent ffac6972ed
commit 0199c2468a
4 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
vlf-ediff.el
View File

@ -165,7 +165,8 @@ logical chunks in case there is no difference at the current ones."
(set-buffer buffer-B)
(setq buffer-B (current-buffer)
min-file-size (min min-file-size vlf-file-size))
(let ((end-B (= vlf-start-pos vlf-end-pos))
(let ((tramp-verbose (min 2 tramp-verbose))
(end-B (= vlf-start-pos vlf-end-pos))
(chunk-B (cons vlf-start-pos vlf-end-pos))
(font-lock-B font-lock-mode)
(done nil)

3
vlf-occur.el
View File

@ -145,7 +145,8 @@ Prematurely ending indexing will still show what's found so far."
(defun vlf-build-occur (regexp vlf-buffer)
"Build occur style index for REGEXP over VLF-BUFFER."
(let ((case-fold-search t)
(let ((tramp-verbose (min 2 tramp-verbose))
(case-fold-search t)
(line 1)
(last-match-line 0)
(last-line-pos (point-min))

8
vlf-search.el
View File

@ -34,7 +34,8 @@
BATCH-STEP is amount of overlap between successive chunks."
(if (<= count 0)
(error "Count must be positive"))
(let* ((case-fold-search t)
(let* ((tramp-verbose (min 2 tramp-verbose))
(case-fold-search t)
(match-chunk-start vlf-start-pos)
(match-chunk-end vlf-end-pos)
(match-start-pos (+ vlf-start-pos (position-bytes (point))))
@ -179,7 +180,8 @@ Search is performed chunk by chunk in `vlf-batch-size' memory."
(interactive (if (vlf-no-modifications)
(list (read-number "Go to line: "))))
(vlf-verify-size)
(let ((start-pos vlf-start-pos)
(let ((tramp-verbose (min 2 tramp-verbose))
(start-pos vlf-start-pos)
(end-pos vlf-end-pos)
(pos (point))
(font-lock font-lock-mode)
@ -209,7 +211,6 @@ Search is performed chunk by chunk in `vlf-batch-size' memory."
end (min vlf-file-size
(+ start vlf-batch-size)))
(progress-reporter-update reporter start))
(progress-reporter-done reporter)
(when (< n (- vlf-file-size end))
(vlf-move-to-chunk-2 start end)
(goto-char (point-min))
@ -234,7 +235,6 @@ Search is performed chunk by chunk in `vlf-batch-size' memory."
start (max 0 (- end vlf-batch-size)))
(progress-reporter-update reporter
(- vlf-file-size end)))
(progress-reporter-done reporter)
(when (< n end)
(vlf-move-to-chunk-2 start end)
(goto-char (point-max))

3
vlf-write.el
View File

@ -52,7 +52,8 @@ Save anyway? "))
region-length)))
(if (zerop size-change)
(write-region nil nil buffer-file-name vlf-start-pos t)
(let ((pos (point))
(let ((tramp-verbose (min 2 tramp-verbose))
(pos (point))
(font-lock font-lock-mode))
(font-lock-mode 0)
(if (< 0 size-change)