mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Make Flymake fringe indicators use dedicated faces

Browse source 
* lisp/progmodes/flymake.el (flymake-error-bitmap)
(flymake-warning-bitmap, flymake-note-bitmap): Define new faces.
(flymake-error-fringe, flymake-warning-fringe)
(flymake-note-fringe): Use the new faces by default.
(Bug#79785)
This commit is contained in:
Protesilaos Stavrou 2025-11-17 10:17:36 +02:00 • committed by Eli Zaretskii
parent bc0f662573
commit dd1d85ebdd
1 changed files with 21 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

27
lisp/progmodes/flymake.el
View file

@ -134,7 +134,7 @@
("1.3.6" . "30.1"))) ("1.3.6" . "30.1")))
(defcustom flymake-error-bitmap '(flymake-double-exclamation-mark (defcustom flymake-error-bitmap '(flymake-double-exclamation-mark
compilation-error) flymake-error-fringe)
"Bitmap (a symbol) used in the fringe for indicating errors. "Bitmap (a symbol) used in the fringe for indicating errors.
The value may also be a list of two elements where the second The value may also be a list of two elements where the second
element specifies the face for the bitmap. For possible bitmap element specifies the face for the bitmap. For possible bitmap
@ -142,13 +142,13 @@ symbols, see `fringe-bitmaps'. See also `flymake-warning-bitmap'.
The option `flymake-fringe-indicator-position' controls how and where The option `flymake-fringe-indicator-position' controls how and where
this is used." this is used."
:version "24.3" :version "31.1"
:type '(choice (symbol :tag "Bitmap") :type '(choice (symbol :tag "Bitmap")
(list :tag "Bitmap and face" (list :tag "Bitmap and face"
(symbol :tag "Bitmap") (symbol :tag "Bitmap")
(face :tag "Face")))) (face :tag "Face"))))
(defcustom flymake-warning-bitmap '(exclamation-mark compilation-warning) (defcustom flymake-warning-bitmap '(exclamation-mark flymake-warning-fringe)
"Bitmap (a symbol) used in the fringe for indicating warnings. "Bitmap (a symbol) used in the fringe for indicating warnings.
The value may also be a list of two elements where the second The value may also be a list of two elements where the second
element specifies the face for the bitmap. For possible bitmap element specifies the face for the bitmap. For possible bitmap
@ -156,13 +156,13 @@ symbols, see `fringe-bitmaps'. See also `flymake-error-bitmap'.
The option `flymake-fringe-indicator-position' controls how and where The option `flymake-fringe-indicator-position' controls how and where
this is used." this is used."
:version "24.3" :version "31.1"
:type '(choice (symbol :tag "Bitmap") :type '(choice (symbol :tag "Bitmap")
(list :tag "Bitmap and face" (list :tag "Bitmap and face"
(symbol :tag "Bitmap") (symbol :tag "Bitmap")
(face :tag "Face")))) (face :tag "Face"))))
(defcustom flymake-note-bitmap '(exclamation-mark compilation-info) (defcustom flymake-note-bitmap '(exclamation-mark flymake-note-fringe)
"Bitmap (a symbol) used in the fringe for indicating info notes. "Bitmap (a symbol) used in the fringe for indicating info notes.
The value may also be a list of two elements where the second The value may also be a list of two elements where the second
element specifies the face for the bitmap. For possible bitmap element specifies the face for the bitmap. For possible bitmap
@ -170,7 +170,7 @@ symbols, see `fringe-bitmaps'. See also `flymake-error-bitmap'.
The option `flymake-fringe-indicator-position' controls how and where The option `flymake-fringe-indicator-position' controls how and where
this is used." this is used."
:version "26.1" :version "31.1"
:type '(choice (symbol :tag "Bitmap") :type '(choice (symbol :tag "Bitmap")
(list :tag "Bitmap and face" (list :tag "Bitmap and face"
(symbol :tag "Bitmap") (symbol :tag "Bitmap")
@ -618,6 +618,21 @@ See variable `flymake-show-diagnostics-at-end-of-line'."
"Face used for information about end-of-line diagnostics." "Face used for information about end-of-line diagnostics."
:package-version '(Flymake . "1.3.6")) :package-version '(Flymake . "1.3.6"))
(defface flymake-error-fringe '((t :inherit compilation-error))
"Face used by default in the `flymake-error-bitmap'."
:version "31.1"
:package-version '(Flymake . "1.4.4"))
(defface flymake-warning-fringe '((t :inherit compilation-warning))
"Face used by default in the `flymake-warning-bitmap'."
:version "31.1"
:package-version '(Flymake . "1.4.4"))
(defface flymake-note-fringe '((t :inherit compilation-info))
"Face used by default in the `flymake-note-bitmap'."
:version "31.1"
:package-version '(Flymake . "1.4.4"))
(defcustom flymake-show-diagnostics-at-end-of-line nil (defcustom flymake-show-diagnostics-at-end-of-line nil
"If non-nil, add diagnostic summary messages at end-of-line. "If non-nil, add diagnostic summary messages at end-of-line.
The value `short' means that only the most severe diagnostic The value `short' means that only the most severe diagnostic