mirror of
https://github.com/m00natic/vlfi.git
synced 2025-01-18 12:05:31 +00:00
Fix byte compilation warnings.
This commit is contained in:
parent
5dd9e2cd02
commit
f43ada1173
@ -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.")
|
||||
|
||||
|
@ -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.
|
||||
|
@ -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)
|
||||
|
@ -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.
|
||||
|
@ -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
2
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)
|
||||
|
Loading…
Reference in New Issue
Block a user