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)

Reply via email to