branch: master commit 2437e4184fdf4d9d7f6b2ecd11c7c5892814a149 Author: Stefan Monnier <monn...@iro.umontreal.ca> Commit: Stefan Monnier <monn...@iro.umontreal.ca>
* 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)