Repurpose `hydra--complain' for debugging

hydra.el (hydra--complain): Forward to either `error' or `message'.

* lv.el (lv-use-separator): Fixup doc.
master
Oleh Krehel 11 years ago
parent 8db62bff7a
commit 370a862f10
  1. 7
      hydra.el
  2. 2
      lv.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)

@ -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)

Loading…
Cancel
Save