[elpa] master 370a862 18/24: Repurpose `hydra--complain' for debugging

[Oleh Krehel]

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

    Repurpose `hydra--complain' for debugging
    
    hydra.el (hydra--complain): Forward to either `error' or `message'.
    
    * lv.el (lv-use-separator): Fixup doc.
---
 hydra.el |    7 ++++---
 lv.el    |    2 +-
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/hydra.el b/hydra.el
index f94cdd4..edc24a2 100644
--- a/hydra.el
+++ b/hydra.el
@@ -519,8 +519,9 @@ The expressions can be auto-expanded according to NAME."
 
 (defun hydra--complain (format-string &rest args)
   "Forward to (`message' FORMAT-STRING ARGS) unless `hydra-verbose' is nil."
-  (when hydra-verbose
-    (apply #'warn format-string args)))
+  (if hydra-verbose
+      (apply #'error format-string args)
+    (apply #'message format-string args)))
 
 (defun hydra--doc (body-key body-name heads)
   "Generate a part of Hydra docstring.
@@ -961,7 +962,7 @@ result of `defhydra'."
                (or body-body-pre body-pre) body-before-exit
                '(setq prefix-arg current-prefix-arg)))))
     (error
-     (message "Error in defhydra %S: %s" name (cdr err))
+     (hydra--complain "Error in defhydra %S: %s" name (cdr err))
      nil)))
 
 (defmacro defhydradio (name _body &rest heads)
diff --git a/lv.el b/lv.el
index 4634757..a548d7d 100644
--- a/lv.el
+++ b/lv.el
@@ -39,7 +39,7 @@
   :group 'hydra)
 
 (defcustom lv-use-separator nil
-  "Whether to draw a line between the lv window and the echo area."
+  "Whether to draw a line between the LV window and the Echo Area."
   :group 'lv
   :type 'boolean)