[elpa] externals/vlf 673ae08 277/310: Lower tramp verbosity level.

[Stefan Monnier]

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

    Lower tramp verbosity level.
---
 vlf-ediff.el  | 2 +-
 vlf-occur.el  | 2 +-
 vlf-search.el | 4 ++--
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/vlf-ediff.el b/vlf-ediff.el
index ef9d5c7..27f1b05 100644
--- a/vlf-ediff.el
+++ b/vlf-ediff.el
@@ -169,7 +169,7 @@ logical chunks in case there is no difference at the 
current ones."
           min-file-size (min min-file-size vlf-file-size)
           is-hexl (or is-hexl (derived-mode-p 'hexl-mode)))
     (let ((tramp-verbose (if (boundp 'tramp-verbose)
-                             (min tramp-verbose 2)))
+                             (min tramp-verbose 1)))
           (end-B (= vlf-start-pos vlf-end-pos))
           (chunk-B (cons vlf-start-pos vlf-end-pos))
           (font-lock-B font-lock-mode)
diff --git a/vlf-occur.el b/vlf-occur.el
index 066709b..45ff3cc 100644
--- a/vlf-occur.el
+++ b/vlf-occur.el
@@ -217,7 +217,7 @@ 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* ((tramp-verbose (if (boundp 'tramp-verbose)
-                            (min tramp-verbose 2)))
+                            (min tramp-verbose 1)))
          (case-fold-search t)
          (line 1)
          (last-match-line 0)
diff --git a/vlf-search.el b/vlf-search.el
index 7875b6c..48cd09f 100644
--- a/vlf-search.el
+++ b/vlf-search.el
@@ -47,7 +47,7 @@ Return t if search has been at least partially successful."
                                vlf-file-size)))
   (or time (setq time (float-time)))
   (let* ((tramp-verbose (if (boundp 'tramp-verbose)
-                            (min tramp-verbose 2)))
+                            (min tramp-verbose 1)))
          (case-fold-search t)
          (match-chunk-start vlf-start-pos)
          (match-chunk-end vlf-end-pos)
@@ -234,7 +234,7 @@ Search is performed chunk by chunk in `vlf-batch-size' 
memory."
     (run-hook-with-args 'vlf-before-batch-functions 'goto-line)
     (vlf-verify-size)
     (let ((tramp-verbose (if (boundp 'tramp-verbose)
-                             (min tramp-verbose 2)))
+                             (min tramp-verbose 1)))
           (start-pos vlf-start-pos)
           (end-pos vlf-end-pos)
           (batch-size vlf-batch-size)