branch: externals/vlf
commit f43ada11730cbab3a7908a179cdf32d8cd703e4e
Author: Andrey Kotlarski <[email protected]>
Commit: Andrey Kotlarski <[email protected]>
Fix byte compilation warnings.
---
vlf-base.el | 2 ++
vlf-ediff.el | 2 ++
vlf-occur.el | 2 ++
vlf-search.el | 3 +++
vlf-tune.el | 8 +++++---
vlf.el | 2 ++
6 files changed, 16 insertions(+), 3 deletions(-)
diff --git a/vlf-base.el b/vlf-base.el
index f040f0f..8ae0d31 100644
--- a/vlf-base.el
+++ b/vlf-base.el
@@ -47,6 +47,8 @@
(make-variable-buffer-local 'vlf-end-pos)
(put 'vlf-end-pos 'permanent-local t)
+(defvar hexl-bits)
+
(defconst vlf-sample-size 24
"Minimal number of bytes that can be properly decoded.")
diff --git a/vlf-ediff.el b/vlf-ediff.el
index 5c4c161..0880660 100644
--- a/vlf-ediff.el
+++ b/vlf-ediff.el
@@ -34,6 +34,8 @@
"If non nil, specifies that ediff is done over VLF buffers.")
(make-variable-buffer-local 'vlf-ediff-session)
+(defvar tramp-verbose)
+
(defun vlf-ediff-buffers (buffer-A buffer-B)
"Run batch by batch ediff over VLF buffers BUFFER-A and BUFFER-B.
Batch size is determined by the size in BUFFER-A.
diff --git a/vlf-occur.el b/vlf-occur.el
index 74911a3..36a927a 100644
--- a/vlf-occur.el
+++ b/vlf-occur.el
@@ -44,6 +44,8 @@
(defvar vlf-occur-lines 0 "Number of lines scanned by `vlf-occur'.")
(make-variable-buffer-local 'vlf-occur-lines)
+(defvar tramp-verbose)
+
(defvar vlf-occur-mode-map
(let ((map (make-sparse-keymap)))
(define-key map "n" 'vlf-occur-next-match)
diff --git a/vlf-search.el b/vlf-search.el
index 48cd09f..c7e0428 100644
--- a/vlf-search.el
+++ b/vlf-search.el
@@ -29,6 +29,9 @@
(require 'vlf)
+(defvar hexl-bits)
+(defvar tramp-verbose)
+
(defun vlf-re-search (regexp count backward batch-step
&optional reporter time highlight)
"Search for REGEXP COUNT number of times forward or BACKWARD.
diff --git a/vlf-tune.el b/vlf-tune.el
index 6498ef7..9fbc3d7 100644
--- a/vlf-tune.el
+++ b/vlf-tune.el
@@ -95,6 +95,11 @@ Avoid decreasing this after opening file with VLF."
(defvar vlf-tune-dehexlify-bps nil
"Vector of bytes per second dehexlify measurements.")
+(defvar hexl-bits)
+(defvar hexl-max-address)
+(declare-function hexl-line-displen "hexl")
+(declare-function dehexlify-buffer "hexl")
+
(defun vlf-tune-closest-index (size)
"Get closest measurement index corresponding to SIZE."
(let ((step (float vlf-tune-step)))
@@ -103,9 +108,6 @@ Avoid decreasing this after opening file with VLF."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; profiling
-(declare-function hexl-line-displen "hexl")
-(declare-function dehexlify-buffer "hexl")
-
(defun vlf-tune-initialize-measurement ()
"Initialize measurement vector."
(make-vector (1- (/ vlf-tune-max vlf-tune-step)) nil))
diff --git a/vlf.el b/vlf.el
index 38b1f5b..f166197 100644
--- a/vlf.el
+++ b/vlf.el
@@ -53,6 +53,8 @@ One argument is supplied that specifies current action.
Possible
values are: `write', `ediff', `occur', `search', `goto-line'."
:group 'vlf :type 'hook)
+(defvar hexl-bits)
+
(autoload 'vlf-write "vlf-write" "Write current chunk to file." t)
(autoload 'vlf-re-search-forward "vlf-search"
"Search forward for REGEXP prefix COUNT number of times." t)
