branch: master
commit 9e61f786d80c66a54c2867f94049c34f59f15383
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>
avy.el: Improve defcustom :type
* avy.el (avy-keys-alist):
(avy-styles-alist): Add 'function as a possible key-type.
---
avy.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/avy.el b/avy.el
index 78e5d63..a94b87b 100644
--- a/avy.el
+++ b/avy.el
@@ -63,7 +63,8 @@ non-printing key like an arrow key (left, right, up, down).
For
non-printing keys, a corresponding entry in
`avy-key-to-char-alist' must exist in order to visualize the key
in the avy overlays."
- :type '(repeat :tag "Keys" (choice (character :tag "char")
+ :type '(repeat :tag "Keys" (choice
+ (character :tag "char")
(symbol :tag "non-printing key"))))
(defcustom avy-keys-alist nil
@@ -80,7 +81,8 @@ in the avy overlays."
(const avy-goto-word-1)
(const avy-copy-line)
(const avy-copy-region)
- (const avy-move-line))
+ (const avy-move-line)
+ (function :tag "Other command"))
:value-type (repeat :tag "Keys" character)))
(defcustom avy-style 'at-full
@@ -108,7 +110,8 @@ If the commands isn't on the list, `avy-style' is used."
(const avy-goto-word-1)
(const avy-copy-line)
(const avy-copy-region)
- (const avy-move-line))
+ (const avy-move-line)
+ (function :tag "Other command"))
:value-type (choice
(const :tag "Pre" pre)
(const :tag "At" at)
