diff options
| -rw-r--r-- | lisp/progmodes/flymake.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el index 474c6335874..e394096e23e 100644 --- a/lisp/progmodes/flymake.el +++ b/lisp/progmodes/flymake.el | |||
| @@ -652,7 +652,9 @@ associated `flymake-category' return DEFAULT." | |||
| 652 | (flymake-diagnostics pos) | 652 | (flymake-diagnostics pos) |
| 653 | "\n")))) | 653 | "\n")))) |
| 654 | (default-maybe 'severity (warning-numeric-level :error)) | 654 | (default-maybe 'severity (warning-numeric-level :error)) |
| 655 | (default-maybe 'priority (+ 100 (overlay-get ov 'severity)))) | 655 | ;; Use (PRIMARY . SECONDARY) priority, to avoid clashing with |
| 656 | ;; `region' face, for example (bug#34022). | ||
| 657 | (default-maybe 'priority (cons nil (+ 40 (overlay-get ov 'severity))))) | ||
| 656 | ;; Some properties can't be overridden. | 658 | ;; Some properties can't be overridden. |
| 657 | ;; | 659 | ;; |
| 658 | (overlay-put ov 'evaporate t) | 660 | (overlay-put ov 'evaporate t) |