mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-06-14 12:31:25 +00:00
Use the new 'margin' face in Flymake (bug#80693)
* lisp/progmodes/flymake.el (flymake--bs-display): Use the 'margin' face when it's available.
This commit is contained in:
parent
07f2bbc905
commit
20d17df3f4
1 changed files with 4 additions and 1 deletions
|
|
@ -2428,7 +2428,10 @@ symbol `fringes' or the symbol `margins'."
|
||||||
`((margin ,flymake-margin-indicator-position)
|
`((margin ,flymake-margin-indicator-position)
|
||||||
,(propertize
|
,(propertize
|
||||||
indicator-car
|
indicator-car
|
||||||
'face `(:inherit (,(cdr valuelist) default))
|
'face `(:inherit (,(cdr valuelist)
|
||||||
|
,(if (facep 'margin)
|
||||||
|
'margin
|
||||||
|
'default)))
|
||||||
'mouse-face 'highlight
|
'mouse-face 'highlight
|
||||||
'help-echo "Open Flymake diagnostics"
|
'help-echo "Open Flymake diagnostics"
|
||||||
'keymap (let ((map (make-sparse-keymap)))
|
'keymap (let ((map (make-sparse-keymap)))
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue