[elpa] master dd5f703 27/36: hydra.el: Use error-message-string, not message

[Oleh Krehel]

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

    hydra.el: Use error-message-string, not message
    
    * hydra.el (hydra--make-defun): Update.
    
    * hydra-test.el: Update tests.
    
    Fixes #209
---
 hydra-test.el | 21 ++++++++++++++-------
 hydra.el      |  2 +-
 2 files changed, 15 insertions(+), 8 deletions(-)

diff --git a/hydra-test.el b/hydra-test.el
index 4c61ea1..9a3e3d7 100644
--- a/hydra-test.el
+++ b/hydra-test.el
@@ -127,7 +127,8 @@ Call the head: `first-error'."
               (call-interactively
                (function first-error)))
           ((quit error)
-           (message "%S" err)
+           (message
+            (error-message-string err))
            (unless hydra-lv (sit-for 0.8))))
         (hydra-show-hint
          hydra-error/hint
@@ -162,7 +163,8 @@ Call the head: `next-error'."
               (call-interactively
                (function next-error)))
           ((quit error)
-           (message "%S" err)
+           (message
+            (error-message-string err))
            (unless hydra-lv (sit-for 0.8))))
         (hydra-show-hint
          hydra-error/hint
@@ -197,7 +199,8 @@ Call the head: `previous-error'."
               (call-interactively
                (function previous-error)))
           ((quit error)
-           (message "%S" err)
+           (message
+            (error-message-string err))
            (unless hydra-lv (sit-for 0.8))))
         (hydra-show-hint
          hydra-error/hint
@@ -514,7 +517,8 @@ Call the head: `next-line'."
               (call-interactively
                (function next-line)))
           ((quit error)
-           (message "%S" err)
+           (message
+            (error-message-string err))
            (unless hydra-lv (sit-for 0.8))))
         (hydra-show-hint
          hydra-vi/hint
@@ -549,7 +553,8 @@ Call the head: `previous-line'."
               (call-interactively
                (function previous-line)))
           ((quit error)
-           (message "%S" err)
+           (message
+            (error-message-string err))
            (unless hydra-lv (sit-for 0.8))))
         (hydra-show-hint
          hydra-vi/hint
@@ -691,7 +696,8 @@ Call the head: `(text-scale-set 0)'."
                (interactive)
                (text-scale-set 0))))
           ((quit error)
-           (message "%S" err)
+           (message
+            (error-message-string err))
            (unless hydra-lv (sit-for 0.8))))
         (hydra-show-hint
          hydra-zoom/hint
@@ -836,7 +842,8 @@ Call the head: `(text-scale-set 0)'."
                (interactive)
                (text-scale-set 0))))
           ((quit error)
-           (message "%S" err)
+           (message
+            (error-message-string err))
            (unless hydra-lv (sit-for 0.8))))
         (hydra-show-hint
          hydra-zoom/hint
diff --git a/hydra.el b/hydra.el
index 6895251..61fb01c 100644
--- a/hydra.el
+++ b/hydra.el
@@ -775,7 +775,7 @@ BODY-AFTER-EXIT is added to the end of the wrapper."
                  `(condition-case err
                       ,(hydra--call-interactively cmd (cadr head))
                     ((quit error)
-                     (message "%S" err)
+                     (message (error-message-string err))
                      (unless hydra-lv
                        (sit-for 0.8)))))
               ,(if (and body-idle (eq (cadr head) 'body))