[nongnu] elpa/keycast ed088d980b 4/7: keycast-substitute-alist: Move definition

[ELPA Syncer]

branch: elpa/keycast
commit ed088d980b940e3c96f585983fed84981227f567
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    keycast-substitute-alist: Move definition
    
    (Though the diff algorithm thinks I moved four other options instead.)
---
 keycast.el | 72 +++++++++++++++++++++++++++++++-------------------------------
 1 file changed, 36 insertions(+), 36 deletions(-)

diff --git a/keycast.el b/keycast.el
index a99b8a1980..01e5eae587 100644
--- a/keycast.el
+++ b/keycast.el
@@ -113,42 +113,6 @@ with no argument and acts on `selected-window'.
   :group 'keycast
   :type 'integer)
 
-(defcustom keycast-substitute-alist nil
-  "Alist used to substituted events and/or commands for display.
-
-Occasionally it might be necessary to pretend you pressed another
-key than the one you actually pressed (because watchers don't
-care about your weird key bindings), or to hide certain commands
-\(such as `self-insert-command').  This option allows doing that
-and more.
-
-Each element has the form (MATCH EVENT COMMAND).  MATCH is an
-event or a command.  When a command is invoked then this package
-looks for a MATCH for that.  If there is a match, then that the
-respective EVENT and COMMAND are used.  If not, then it looks
-for a MATCH for that instead.
-
-If either EVENT or COMMAND is nil, then neither the event nor
-the command is shown (regardless of the value of the other).
-Otherwise if EVENT is t then the actual event is shown, else
-it has to be a string to be shown instead.  Likewise COMMAND
-can be t to show the actual COMMAND or a symbol to be shown
-instead."
-  :group 'keycast
-  :type '(repeat
-          (list (choice :format "%{Actual event/command%}: %[Value Menu%] %v"
-                        (string  :tag "Event")
-                        (symbol  :tag "Command")
-                        (const   :tag "Lambda" t))
-                (choice :format "%{Display event%}:        %[Value Menu%] %v"
-                        (const   :tag "Omit binding" nil)
-                        (const   :tag "Use actual event" t)
-                        (string  :tag "Substitute event"))
-                (choice :format "%{Display command%}:      %[Value Menu%] %v"
-                        (const   :tag "Omit binding" nil)
-                        (const   :tag "Use actual command" t)
-                        (symbol  :tag "Substitute command")))))
-
 (defcustom keycast-log-format "%-20K%C%R\n"
   "The format spec used by `keycast-log-mode'.
 
@@ -193,6 +157,42 @@ instead."
   :group 'keycast
   :type 'string)
 
+(defcustom keycast-substitute-alist nil
+  "Alist used to substituted events and/or commands for display.
+
+Occasionally it might be necessary to pretend you pressed another
+key than the one you actually pressed (because watchers don't
+care about your weird key bindings), or to hide certain commands
+\(such as `self-insert-command').  This option allows doing that
+and more.
+
+Each element has the form (MATCH EVENT COMMAND).  MATCH is an
+event or a command.  When a command is invoked then this package
+looks for a MATCH for that.  If there is a match, then that the
+respective EVENT and COMMAND are used.  If not, then it looks
+for a MATCH for that instead.
+
+If either EVENT or COMMAND is nil, then neither the event nor
+the command is shown (regardless of the value of the other).
+Otherwise if EVENT is t then the actual event is shown, else
+it has to be a string to be shown instead.  Likewise COMMAND
+can be t to show the actual COMMAND or a symbol to be shown
+instead."
+  :group 'keycast
+  :type '(repeat
+          (list (choice :format "%{Actual event/command%}: %[Value Menu%] %v"
+                        (string  :tag "Event")
+                        (symbol  :tag "Command")
+                        (const   :tag "Lambda" t))
+                (choice :format "%{Display event%}:        %[Value Menu%] %v"
+                        (const   :tag "Omit binding" nil)
+                        (const   :tag "Use actual event" t)
+                        (string  :tag "Substitute event"))
+                (choice :format "%{Display command%}:      %[Value Menu%] %v"
+                        (const   :tag "Omit binding" nil)
+                        (const   :tag "Use actual command" t)
+                        (symbol  :tag "Substitute command")))))
+
 (defface keycast-key
   '((t (:weight bold
         :background "#d5cfbf"