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)