sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-01-18 12:05:31 +00:00
Code Issues Releases Wiki Activity

Fix byte compilation warnings.

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

2
vlf-base.el
View File

@ -47,6 +47,8 @@
(make-variable-buffer-local 'vlf-end-pos) (make-variable-buffer-local 'vlf-end-pos)
(put 'vlf-end-pos 'permanent-local t) (put 'vlf-end-pos 'permanent-local t)
(defvar hexl-bits)
(defconst vlf-sample-size 24 (defconst vlf-sample-size 24
"Minimal number of bytes that can be properly decoded.") "Minimal number of bytes that can be properly decoded.")

2
vlf-ediff.el
View File

@ -34,6 +34,8 @@
"If non nil, specifies that ediff is done over VLF buffers.") "If non nil, specifies that ediff is done over VLF buffers.")
(make-variable-buffer-local 'vlf-ediff-session) (make-variable-buffer-local 'vlf-ediff-session)
(defvar tramp-verbose)
(defun vlf-ediff-buffers (buffer-A buffer-B) (defun vlf-ediff-buffers (buffer-A buffer-B)
"Run batch by batch ediff over VLF buffers BUFFER-A and 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. Batch size is determined by the size in BUFFER-A.

2
vlf-occur.el
View File

@ -44,6 +44,8 @@
(defvar vlf-occur-lines 0 "Number of lines scanned by `vlf-occur'.") (defvar vlf-occur-lines 0 "Number of lines scanned by `vlf-occur'.")
(make-variable-buffer-local 'vlf-occur-lines) (make-variable-buffer-local 'vlf-occur-lines)
(defvar tramp-verbose)
(defvar vlf-occur-mode-map (defvar vlf-occur-mode-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
(define-key map "n" 'vlf-occur-next-match) (define-key map "n" 'vlf-occur-next-match)

3
vlf-search.el
View File

@ -29,6 +29,9 @@
(require 'vlf) (require 'vlf)
(defvar hexl-bits)
(defvar tramp-verbose)
(defun vlf-re-search (regexp count backward batch-step (defun vlf-re-search (regexp count backward batch-step
&optional reporter time highlight) &optional reporter time highlight)
"Search for REGEXP COUNT number of times forward or BACKWARD. "Search for REGEXP COUNT number of times forward or BACKWARD.

8
vlf-tune.el
View File

@ -95,6 +95,11 @@ Avoid decreasing this after opening file with VLF."
(defvar vlf-tune-dehexlify-bps nil (defvar vlf-tune-dehexlify-bps nil
"Vector of bytes per second dehexlify measurements.") "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) (defun vlf-tune-closest-index (size)
"Get closest measurement index corresponding to SIZE." "Get closest measurement index corresponding to SIZE."
(let ((step (float vlf-tune-step))) (let ((step (float vlf-tune-step)))
@ -103,9 +108,6 @@ Avoid decreasing this after opening file with VLF."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; profiling ;;; profiling
(declare-function hexl-line-displen "hexl")
(declare-function dehexlify-buffer "hexl")
(defun vlf-tune-initialize-measurement () (defun vlf-tune-initialize-measurement ()
"Initialize measurement vector." "Initialize measurement vector."
(make-vector (1- (/ vlf-tune-max vlf-tune-step)) nil)) (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'." values are: `write', `ediff', `occur', `search', `goto-line'."
:group 'vlf :type 'hook) :group 'vlf :type 'hook)
(defvar hexl-bits)
(autoload 'vlf-write "vlf-write" "Write current chunk to file." t) (autoload 'vlf-write "vlf-write" "Write current chunk to file." t)
(autoload 'vlf-re-search-forward "vlf-search" (autoload 'vlf-re-search-forward "vlf-search"
"Search forward for REGEXP prefix COUNT number of times." t) "Search forward for REGEXP prefix COUNT number of times." t)