emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/vlf 0199c24 218/310: Lower tramp verbosity level when d


From: Stefan Monnier
Subject: [elpa] externals/vlf 0199c24 218/310: Lower tramp verbosity level when dealing with multiple batches.
Date: Sat, 28 Nov 2020 00:33:19 -0500 (EST)

branch: externals/vlf
commit 0199c2468a274bcac5fbfe6c3321d3ee400f1a22
Author: Andrey Kotlarski <m00naticus@gmail.com>
Commit: Andrey Kotlarski <m00naticus@gmail.com>

    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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]