branch: elpa/helm commit b7e8fd1c280ab8638a4cc9b6117ba8b9e2867f22 Author: Thierry Volpiatto <thie...@posteo.net> Commit: Thierry Volpiatto <thie...@posteo.net>
Add a face to notify if toggle-debug-on-* commands are active --- helm-command.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/helm-command.el b/helm-command.el index 025b4b6c26..f77dddc785 100644 --- a/helm-command.el +++ b/helm-command.el @@ -96,6 +96,11 @@ Helm will never appear in `helm-M-x' whatever the value of this var is." "Face used by `helm-M-x' for activated minor modes." :group 'helm-command-faces) +(defface helm-command-debug-active + '((t :inherit font-lock-warning-face)) + "Face used by `helm-M-x' for activated toggle-debug-on-* commands." + :group 'helm-command-faces) + (defface helm-M-x-short-doc '((t :box (:line-width -1) :foreground "DimGray")) "Face used by `helm-M-x' for short docstring." @@ -168,6 +173,11 @@ algorithm." (buffer-local-value sym helm-current-buffer)) (propertize cand 'face 'helm-command-minor-active-mode)) + ((or (and (eq sym 'toggle-debug-on-error) + debug-on-error) + (and (eq sym 'toggle-debug-on-quit) + debug-on-quit)) + (propertize cand 'face 'helm-command-debug-active)) (t cand)) unless (and (null ignore-props) (or (get sym 'helm-only) (get sym 'no-helm-mx)