Commit 06933245 authored by Juri Linkov's avatar Juri Linkov

Extend next-error-message face to the edge of the window (bug#32676)

* lisp/simple.el (next-error-message): Add ':extend t' to this face.
(next-error-message-highlight): Put overlay over the newline as well.
parent 2c0cd900
Pipeline #7396 passed with stage
in 63 minutes and 50 seconds
......@@ -125,7 +125,7 @@ If non-nil, the value is passed directly to `recenter'."
:version "28.1")
(defface next-error-message
'((t (:inherit highlight)))
'((t (:inherit highlight :extend t)))
"Face used to highlight the current error message in the `next-error' buffer."
:group 'next-error
:version "28.1")
......@@ -484,7 +484,7 @@ buffer causes automatic display of the corresponding source code location."
(with-current-buffer error-buffer
(when next-error--message-highlight-overlay
(delete-overlay next-error--message-highlight-overlay))
(let ((ol (make-overlay (line-beginning-position) (line-end-position))))
(let ((ol (make-overlay (line-beginning-position) (1+ (line-end-position)))))
;; do not override region highlighting
(overlay-put ol 'priority -50)
(overlay-put ol 'face 'next-error-message)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment