[elpa] master 9e61f78 006/110: avy.el: Improve defcustom :type

[Oleh Krehel]

branch: master
commit 9e61f786d80c66a54c2867f94049c34f59f15383
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    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)