branch: externals/ivy-hydra
commit dd9c88f3357d1a88dbcc5c19d94a82cde3d08255
Author: Oleh Krehel <[email protected]>
Commit: Oleh Krehel <[email protected]>
ivy-avy.el: Fix package-lint warnings
Re #2583
---
ivy-avy.el | 15 ++++++++++-----
1 file changed, 10 insertions(+), 5 deletions(-)
diff --git a/ivy-avy.el b/ivy-avy.el
index 1e5b6f4..b4fe0e8 100644
--- a/ivy-avy.el
+++ b/ivy-avy.el
@@ -3,6 +3,9 @@
;; Copyright (C) 2020 Free Software Foundation, Inc.
;; Author: Oleh Krehel <[email protected]>
+;; URL: https://github.com/abo-abo/swiper
+;; Version: 0.13.0
+;; Package-Requires: ((emacs "24.5") (ivy "0.13.0") (avy "0.5.0"))
;; Keywords: convenience
;; This program is free software; you can redistribute it and/or modify
@@ -19,6 +22,8 @@
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
+;;
+;; This package adds a "C-'" binding to Ivy minibuffer that uses Avy.
;;; Code:
@@ -36,7 +41,7 @@
(const :tag "Words" words))
:group 'ivy)
-(defun ivy--avy-candidates ()
+(defun ivy-avy--candidates ()
"List of candidates for `ivy-avy'."
(let (candidates)
(save-excursion
@@ -54,7 +59,7 @@
(forward-line))))
(nreverse candidates)))
-(defun ivy--avy-action (pt)
+(defun ivy-avy--action (pt)
"Select the candidate represented by PT."
(when (number-or-marker-p pt)
(let ((bnd (ivy--minibuffer-index-bounds
@@ -63,7 +68,7 @@
(substring-no-properties
(nth (+ (car bnd) (- (line-number-at-pos pt) 2)) ivy--old-cands))))))
-(defun ivy--avy-handler-function (char)
+(defun ivy-avy--handler-function (char)
"Handle CHAR that's not on `avy-keys'."
(let (cmd)
(cond ((memq char '(?\C-\[ ?\C-g))
@@ -91,9 +96,9 @@
(avy-style (or (cdr (assq 'ivy-avy avy-styles-alist))
avy-style))
(avy-action #'identity)
- (avy-handler-function #'ivy--avy-handler-function)
+ (avy-handler-function #'ivy-avy--handler-function)
res)
- (while (eq (setq res (avy-process (ivy--avy-candidates))) t))
+ (while (eq (setq res (avy-process (ivy-avy--candidates))) t))
(when res
(ivy--avy-action res)))))
