From bc335af4d94d80d3605b66ed51a15d2476ad2179 Mon Sep 17 00:00:00 2001
From: Oleh Krehel <ohwoeowho@gmail.com>
Date: Tue, 19 May 2015 16:13:41 +0200
Subject: [PATCH] Fixup compilation warnings

---
 ivy.el    | 25 ++++++++++++++-----------
 swiper.el |  6 +++---
 2 files changed, 17 insertions(+), 14 deletions(-)

diff --git a/ivy.el b/ivy.el
index 9870032bf..13955b9ab 100644
--- a/ivy.el
+++ b/ivy.el
@@ -198,6 +198,15 @@ When non-nil, it should contain one %d.")
 (defvar ivy--regex-function 'ivy--regex
   "Current function for building a regex.")
 
+(defvar ivy--subexps 0
+  "Number of groups in the current `ivy--regex'.")
+
+(defvar ivy--full-length nil
+  "When :dynamic-collection is non-nil, this can be the total amount of candidates.")
+
+(defvar ivy--old-text ""
+  "Store old `ivy-text' for dynamic completion.")
+
 (defvar Info-current-file)
 
 (defmacro ivy-quit-and-run (&rest body)
@@ -807,9 +816,6 @@ Minibuffer bindings:
 
 ;;* Implementation
 ;;** Regex
-(defvar ivy--subexps 0
-  "Number of groups in the current `ivy--regex'.")
-
 (defvar ivy--regex-hash
   (make-hash-table :test 'equal)
   "Store pre-computed regex.")
@@ -821,7 +827,8 @@ This allows to \"quote\" N spaces by inputting N+1 spaces."
   (let ((len (length str))
         start0
         (start1 0)
-        res s)
+        res s
+        match-len)
     (while (and (string-match " +" str start1)
                 (< start1 len))
       (setq match-len (- (match-end 0) (match-beginning 0)))
@@ -934,17 +941,11 @@ Everything after \"!\" should not match."
     (goto-char (minibuffer-prompt-end))
     (delete-region (line-end-position) (point-max))))
 
-(defvar ivy--full-length nil
-  "When :dynamic-collection is non-nil, this can be the total amount of candidates.")
-
-(defvar ivy--old-text ""
-  "Store old `ivy-text' for dynamic completion.")
-
 (defun ivy--insert-prompt ()
   "Update the prompt according to `ivy--prompt'."
   (when ivy--prompt
     (unless (memq this-command '(ivy-done ivy-alt-done ivy-partial-or-done
-                                 counsel-find-symbol))
+                                          counsel-find-symbol))
       (setq ivy--prompt-extra ""))
     (let (head tail)
       (if (string-match "\\(.*\\): $" ivy--prompt)
@@ -1046,6 +1047,8 @@ Should be run via minibuffer `post-command-hook'."
         (forward-line 1)
         (insert text)))))
 
+(declare-function colir-blend-face-background "ext:colir")
+
 (defun ivy--add-face (str face)
   "Propertize STR with FACE.
 `font-lock-append-text-property' is used, since it's better than
diff --git a/swiper.el b/swiper.el
index c52266cc6..7955817bc 100644
--- a/swiper.el
+++ b/swiper.el
@@ -83,6 +83,9 @@
     map)
   "Keymap for swiper.")
 
+(defvar swiper--window nil
+  "Store the current window.")
+
 (defun swiper-query-replace ()
   "Start `query-replace' with string to replace from last search string."
   (interactive)
@@ -119,9 +122,6 @@
       (ivy-quit-and-run
        (avy--goto candidate)))))
 
-(defvar swiper--window nil
-  "Store the current window.")
-
 (defun swiper-recenter-top-bottom (&optional arg)
   "Call (`recenter-top-bottom' ARG) in `swiper--window'."
   (interactive "P")
-- 
2.39.2