diff --git a/lisp/simple.el b/lisp/simple.el index bd19969341..97f6d4837e 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -125,7 +125,7 @@ next-error-message-highlight :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 @@ next-error-message-highlight (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)