Highlight keyboard macro recording mode with read color in the mode-line

* lisp/bindings.el (minor-mode-alist): Propertize " Def"
with 'error' face for defining-kbd-macro.  (Bug#36564)

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 5205d497ef5e2f4e0dc9c9855ce161b5b1752e7b..64842c4e1ff09f8b26680241e837945684081ffe 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -655,11 +655,11 @@ okay.  See `mode-line-format'.")
 (put 'minor-mode-alist 'risky-local-variable t)
 ;; Don't use purecopy here--some people want to change these strings.
 (setq minor-mode-alist
-      '((abbrev-mode " Abbrev")
+      `((abbrev-mode " Abbrev")
         (overwrite-mode overwrite-mode)
         (auto-fill-function " Fill")
         ;; not really a minor mode...
-        (defining-kbd-macro " Def")))
+        (defining-kbd-macro ,(propertize " Def" 'face 'error))))
 
 ;; These variables are used by autoloadable packages.
 ;; They are defined here so that they do not get overridden