[elpa] master 2437e41: * swiper.el: Fix compilation warnings

[Stefan Monnier]

branch: master
commit 2437e4184fdf4d9d7f6b2ecd11c7c5892814a149
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * swiper.el: Fix compilation warnings
---
 packages/swiper/swiper.el |   26 +++++++++++++-------------
 1 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/packages/swiper/swiper.el b/packages/swiper/swiper.el
index d69e4ae..66a9058 100644
--- a/packages/swiper/swiper.el
+++ b/packages/swiper/swiper.el
@@ -95,15 +95,15 @@
       (swiper--cleanup)
       (exit-minibuffer))))
 
+(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")
   (with-selected-window swiper--window
     (recenter-top-bottom arg)))
 
-(defvar swiper--window nil
-  "Store the current window.")
-
 (defun swiper-font-lock-ensure ()
   "Ensure the entired buffer is highlighted."
   (unless (or (derived-mode-p 'magit-mode)
@@ -117,7 +117,7 @@
     (unless (> (buffer-size) 100000)
       (if (fboundp 'font-lock-ensure)
           (font-lock-ensure)
-        (font-lock-fontify-buffer)))))
+        (with-no-warnings (font-lock-fontify-buffer))))))
 
 (defvar swiper--format-spec ""
   "Store the current candidates format spec.")
@@ -153,6 +153,15 @@ When non-nil, INITIAL-INPUT is the initial search pattern."
   (interactive)
   (swiper--ivy initial-input))
 
+(defvar swiper--overlays nil
+  "Store overlays.")
+
+(defvar swiper--anchor nil
+  "A line number to which the search should be anchored.")
+
+(defvar swiper--len 0
+  "The last length of input for which an anchoring was made.")
+
 (defun swiper--init ()
   "Perform initialization common to both completion methods."
   (deactivate-mark)
@@ -207,15 +216,6 @@ When non-nil, INITIAL-INPUT is the initial search pattern."
     (goto-char (point-min))
     (isearch-clean-overlays)))
 
-(defvar swiper--overlays nil
-  "Store overlays.")
-
-(defvar swiper--anchor nil
-  "A line number to which the search should be anchored.")
-
-(defvar swiper--len 0
-  "The last length of input for which an anchoring was made.")
-
 (defun swiper--update-input-ivy ()
   "Called when `ivy' input is updated."
   (swiper--cleanup)