From: Juri Linkov <juri@linkov.net>
Date: Mon, 29 Jul 2019 22:46:15 +0000 (+0300)
Subject: Highlight keyboard macro recording mode with read color in the mode-line
X-Git-Tag: emacs-27.0.90~1817^2~29
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=28d1023bbeea7c5c6b0791a48852a12f14785067;p=emacs.git

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 5205d497ef5..64842c4e1ff 100644
--- 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