branch: master
commit 3c8daba091a87cd056a062b77a443738707ddc5c
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>
Fixup compilation warnings
---
counsel.el | 11 +++++++----
ivy.el | 1 +
swiper.el | 1 +
3 files changed, 9 insertions(+), 4 deletions(-)
diff --git a/counsel.el b/counsel.el
index 6be445f..174a1b9 100644
--- a/counsel.el
+++ b/counsel.el
@@ -269,7 +269,10 @@
(defcustom counsel-find-file-at-point nil
"When non-nil, add file-at-point to the list of candidates."
- :type 'boolean)
+ :type 'boolean
+ :group 'ivy)
+
+(declare-function ffap-guesser "ffap")
(defun counsel-find-file ()
"Forward to `find-file'."
@@ -286,7 +289,8 @@
(defcustom counsel-find-file-ignore-regexp "\\(?:\\`[#.]\\)\\|\\(?:[#~]\\'\\)"
"A regexp of files to ignore while in `counsel-find-file'.
These files are un-ignored if `ivy-text' matches them.
-The common way to show all files is to start `ivy-text' with a dot.")
+The common way to show all files is to start `ivy-text' with a dot."
+ :group 'ivy)
(defun counsel--find-file-matcher (regexp candidates)
"Return REGEXP-matching CANDIDATES.
@@ -336,8 +340,7 @@ Skip some dotfiles unless `ivy-text' requires them."
(defun counsel-locate ()
"Call locate."
(interactive)
- (let* ((ivy--dynamic-function 'counsel-locate-function)
- (val (ivy-read "pattern: " 'counsel-locate-function)))
+ (let ((val (ivy-read "pattern: " 'counsel-locate-function)))
(when val
(find-file val))))
diff --git a/ivy.el b/ivy.el
index 15ced91..2115555 100644
--- a/ivy.el
+++ b/ivy.el
@@ -261,6 +261,7 @@ Is is a cons cell, related to
`tramp-get-completion-function'."
domain)))
(declare-function tramp-get-completion-function "tramp")
+(declare-function Info-find-node "info")
(defun ivy-alt-done (&optional arg)
"Exit the minibuffer with the selected candidate.
diff --git a/swiper.el b/swiper.el
index c27da2e..8312852 100644
--- a/swiper.el
+++ b/swiper.el
@@ -103,6 +103,7 @@
(exit-minibuffer))))
(defvar avy-background)
+(defvar avy-all-windows)
(declare-function avy--regex-candidates "ext:avy")
(declare-function avy--process "ext:avy")
(declare-function avy--overlay-post "ext:avy")
