1
0
mirror of https://github.com/m00natic/vlfi.git synced 2024-10-05 18:30:51 +01:00

Lower tramp verbosity level.

This commit is contained in:
Andrey Kotlarski 2014-10-07 13:19:40 +03:00
parent ac8d4008bd
commit 673ae08848
3 changed files with 4 additions and 4 deletions

View File

@ -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)

View File

@ -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)

View File

@ -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)