From 06933245c609069f4af5a32422a1f353ad063b7a Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 17 Oct 2020 23:23:10 +0300 Subject: [PATCH] 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. --- lisp/simple.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index bd19969341f..d6fce922c4c 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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) -- 2.39.2