[nongnu] elpa/devil c60437c11b 39/49: Support making all key sequences repeatable

[ELPA Syncer]

branch: elpa/devil
commit c60437c11b3b76c6709dab63a34a94b35ac4c865
Author: Susam Pal <susam@susam.net>
Commit: Susam Pal <susam@susam.net>

    Support making all key sequences repeatable
---
 devil.el | 26 +++++++++++++++++++++++---
 1 file changed, 23 insertions(+), 3 deletions(-)

diff --git a/devil.el b/devil.el
index a50b503e19..5440139b6d 100644
--- a/devil.el
+++ b/devil.el
@@ -85,7 +85,7 @@ be modified before loading Devil for it to take effect.")
   (devil-mode 1))
 
 (defcustom devil-logging nil
-  "Non-nil if and only if Devil should print log messages."
+  "Non-nil iff Devil should print log messages."
   :type 'boolean)
 
 (defvar devil-special-keys
@@ -134,9 +134,28 @@ to represent `devil-key' in the keys."
 The value of this variable is a list where each item represents a
 key sequence that may be repeated merely by typing the last
 character in the key sequence.  The format control specified `%k'
-may be used to represent `devil-key' in the keys."
+may be used to represent `devil-key' in the keys.  Only key
+sequences that translate to a complete Emacs key sequence
+according to `devil-translations' and execute an Emacs command
+are made repeatable.  Key sequences that belong to
+`devil-special-keys' are never made repeatable.  Note that this
+variable is ignored if `devil-all-keys-repeatable' is set to t."
   :type '(repeat string))
 
+(defcustom devil-all-keys-repeatable nil
+  "All successfully translated key sequences become repeatable iff t.
+
+When this variable is set to t all key sequences that translate
+to a complete and defined Emacs key sequence become a repeatable
+key sequence, i.e., it can be repeated merely by typing the last
+character in the key sequence.  Note that key sequences that
+belong to `devil-special-keys' are never made repeatable.  Also,
+note that when this variable is set to t, the variable
+`devil-repeatable-keys' is ignored.  However when this variable
+is set to nil, the variable `devil-repeatable-keys' is used to
+determine whether a key sequence is repeatable or not."
+  :type 'boolean)
+
 (defun devil-run-key (key)
   "Execute the given key sequence KEY.
 
@@ -277,7 +296,8 @@ sequences should be read from the user."
            (devil--log "Executing key: %s => %s => %s"
                        described-key translated-key binding)
            (call-interactively binding)
-           (when (devil--repeatable-key-p described-key)
+           (when (or devil-all-keys-repeatable
+                     (devil--repeatable-key-p described-key))
              (devil--set-transient-map (substring described-key -1) binding))
            t)
           (t