diff options
| author | Juri Linkov | 2019-07-30 01:46:15 +0300 |
|---|---|---|
| committer | Juri Linkov | 2019-07-30 01:46:15 +0300 |
| commit | 28d1023bbeea7c5c6b0791a48852a12f14785067 (patch) | |
| tree | 7e6d53eab1375ba2cef11311431ac06a968b9a89 | |
| parent | 77acef90cc86ae4a69ea3abba7259f48801f64bf (diff) | |
| download | emacs-28d1023bbeea7c5c6b0791a48852a12f14785067.tar.gz emacs-28d1023bbeea7c5c6b0791a48852a12f14785067.zip | |
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)
| -rw-r--r-- | lisp/bindings.el | 4 |
1 files changed, 2 insertions, 2 deletions
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'.") | |||
| 655 | (put 'minor-mode-alist 'risky-local-variable t) | 655 | (put 'minor-mode-alist 'risky-local-variable t) |
| 656 | ;; Don't use purecopy here--some people want to change these strings. | 656 | ;; Don't use purecopy here--some people want to change these strings. |
| 657 | (setq minor-mode-alist | 657 | (setq minor-mode-alist |
| 658 | '((abbrev-mode " Abbrev") | 658 | `((abbrev-mode " Abbrev") |
| 659 | (overwrite-mode overwrite-mode) | 659 | (overwrite-mode overwrite-mode) |
| 660 | (auto-fill-function " Fill") | 660 | (auto-fill-function " Fill") |
| 661 | ;; not really a minor mode... | 661 | ;; not really a minor mode... |
| 662 | (defining-kbd-macro " Def"))) | 662 | (defining-kbd-macro ,(propertize " Def" 'face 'error)))) |
| 663 | 663 | ||
| 664 | ;; These variables are used by autoloadable packages. | 664 | ;; These variables are used by autoloadable packages. |
| 665 | ;; They are defined here so that they do not get overridden | 665 | ;; They are defined here so that they do not get overridden |