[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 2437e41: * swiper.el: Fix compilation warnings
From: |
Stefan Monnier |
Subject: |
[elpa] master 2437e41: * swiper.el: Fix compilation warnings |
Date: |
Sun, 19 Apr 2015 19:35:09 +0000 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 2437e41: * swiper.el: Fix compilation warnings,
Stefan Monnier <=