sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-10-30 22:53:37 +00:00
Code Issues Releases Wiki Activity

Lower tramp verbosity level.

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

2
vlf-ediff.el
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) min-file-size (min min-file-size vlf-file-size)
is-hexl (or is-hexl (derived-mode-p 'hexl-mode))) is-hexl (or is-hexl (derived-mode-p 'hexl-mode)))
(let ((tramp-verbose (if (boundp 'tramp-verbose) (let ((tramp-verbose (if (boundp 'tramp-verbose)
(min tramp-verbose 2))) (min tramp-verbose 1)))
(end-B (= vlf-start-pos vlf-end-pos)) (end-B (= vlf-start-pos vlf-end-pos))
(chunk-B (cons vlf-start-pos vlf-end-pos)) (chunk-B (cons vlf-start-pos vlf-end-pos))
(font-lock-B font-lock-mode) (font-lock-B font-lock-mode)

2
vlf-occur.el
View File

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

4
vlf-search.el
View File

@@ -47,7 +47,7 @@ Return t if search has been at least partially successful."
vlf-file-size))) vlf-file-size)))
(or time (setq time (float-time))) (or time (setq time (float-time)))
(let* ((tramp-verbose (if (boundp 'tramp-verbose) (let* ((tramp-verbose (if (boundp 'tramp-verbose)
(min tramp-verbose 2))) (min tramp-verbose 1)))
(case-fold-search t) (case-fold-search t)
(match-chunk-start vlf-start-pos) (match-chunk-start vlf-start-pos)
(match-chunk-end vlf-end-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) (run-hook-with-args 'vlf-before-batch-functions 'goto-line)
(vlf-verify-size) (vlf-verify-size)
(let ((tramp-verbose (if (boundp 'tramp-verbose) (let ((tramp-verbose (if (boundp 'tramp-verbose)
(min tramp-verbose 2))) (min tramp-verbose 1)))
(start-pos vlf-start-pos) (start-pos vlf-start-pos)
(end-pos vlf-end-pos) (end-pos vlf-end-pos)
(batch-size vlf-batch-size) (batch-size vlf-batch-size)