emacs-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]