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

Fix byte compilation warnings.

This commit is contained in:
Andrey Kotlarski 2014-10-16 02:55:02 +03:00
parent 5dd9e2cd02
commit f43ada1173
6 changed files with 16 additions and 3 deletions

View File

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

View File

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

View File

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

View File

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

View File

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

2
vlf.el
View File

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