[elpa] master 2ebf862 25/36: Move Amaranth warning message to a defvar

[Oleh Krehel]

branch: master
commit 2ebf8624d563f5e5b9dd3c13b973579e8d415092
Author: jasonm23 <address@hidden>
Commit: jasonm23 <address@hidden>

    Move Amaranth warning message to a defvar
---
 hydra.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/hydra.el b/hydra.el
index b4c1926..6895251 100644
--- a/hydra.el
+++ b/hydra.el
@@ -100,6 +100,9 @@
   "If a Hydra head sets this to t, exit the Hydra.
 This will be done even if the head wasn't designated for exiting.")
 
+(defvar hydra-amaranth-warn-message "An amaranth Hydra can only exit through a 
blue head"
+  "Amaranth Warning message.  Shown when the user tries to press an 
unbound/non-exit key while in an amaranth head.")
+
 (defun hydra-set-transient-map (keymap on-exit &optional foreign-keys)
   "Set KEYMAP to the highest priority.
 
@@ -185,7 +188,7 @@ warn: keep KEYMAP and issue a warning instead of running 
the command."
 (defun hydra-amaranth-warn ()
   "Issue a warning that the current input was ignored."
   (interactive)
-  (message "An amaranth Hydra can only exit through a blue head"))
+  (message hydra-amaranth-warn-message))
 
 ;;* Customize
 (defgroup hydra nil