branch: master
commit 370a862f10a8a4f877a7e922f023ba26dc638714
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>
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)
