[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 0693324: Extend next-error-message face to the edge of the window
From: |
Juri Linkov |
Subject: |
master 0693324: Extend next-error-message face to the edge of the window (bug#32676) |
Date: |
Sat, 17 Oct 2020 16:23:22 -0400 (EDT) |
branch: master
commit 06933245c609069f4af5a32422a1f353ad063b7a
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
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 bd19969..d6fce92 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 0693324: Extend next-error-message face to the edge of the window (bug#32676),
Juri Linkov <=