andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/bindings.el (mode-line-defining-kbd-macro): New defvar.

Browse source 
(minor-mode-alist): Use it for `defining-kbd-macro'.  (Bug#36564)
This commit is contained in:
Juri Linkov 2019-07-30 23:35:42 +03:00
parent f7cf9199ab
commit add146f09f
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/bindings.el
View file

@ -644,6 +644,11 @@ Switch to the most recently selected buffer other than the current one."
(let ((indicator (car (nth 4 (car (cdr event))))))
(describe-minor-mode-from-indicator indicator)))
(defvar mode-line-defining-kbd-macro (propertize " Def" 'face 'font-lock-warning-face)
"String displayed in the mode line in keyboard macro recording mode.")
;;;###autoload
(put 'mode-line-defining-kbd-macro 'risky-local-variable t)
(defvar minor-mode-alist nil "\
Alist saying how to show minor modes in the mode line.
Each element looks like (VARIABLE STRING);
@ -653,13 +658,14 @@ Actually, STRING need not be a string; any mode-line construct is
okay. See `mode-line-format'.")
;;;###autoload
(put 'minor-mode-alist 'risky-local-variable t)
;; Don't use purecopy here--some people want to change these strings.
;; Don't use purecopy here--some people want to change these strings,
;; also string properties are lost when put into pure space.
(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 ,(propertize " Def" 'face 'error))))
(defining-kbd-macro mode-line-defining-kbd-macro)))
;; These variables are used by autoloadable packages.
;; They are defined here so that they do not get overridden