branch: externals/vlf
commit 0199c2468a274bcac5fbfe6c3321d3ee400f1a22
Author: Andrey Kotlarski <[email protected]>
Commit: Andrey Kotlarski <[email protected]>
Lower tramp verbosity level when dealing with multiple batches.
---
vlf-ediff.el | 3 ++-
vlf-occur.el | 3 ++-
vlf-search.el | 8 ++++----
vlf-write.el | 3 ++-
4 files changed, 10 insertions(+), 7 deletions(-)
diff --git a/vlf-ediff.el b/vlf-ediff.el
index 2e44102..51c8aec 100644
--- a/vlf-ediff.el
+++ b/vlf-ediff.el
@@ -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)
diff --git a/vlf-occur.el b/vlf-occur.el
index e14e4b5..3b7be85 100644
--- a/vlf-occur.el
+++ b/vlf-occur.el
@@ -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))
diff --git a/vlf-search.el b/vlf-search.el
index ba76237..8fa2ce4 100644
--- a/vlf-search.el
+++ b/vlf-search.el
@@ -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))
diff --git a/vlf-write.el b/vlf-write.el
index ffb948a..e8549a7 100644
--- a/vlf-write.el
+++ b/vlf-write.el
@@ -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)
