feat: Extend face

emacs-vs · Feb 6, 2024 · 4e712da · 4e712da
1 parent 21e24d4
commit 4e712da
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/goto-line-preview.el b/goto-line-preview.el
@@ -54,7 +54,7 @@
   :type 'integer)
 
 (defface goto-line-preview-hl
-  '((t :inherit highlight))
+  '((t :inherit highlight :extend t))
   "Face to use for highlighting when change preview line."
   :group 'goto-line-preview)
 
@@ -70,8 +70,9 @@
 (defun goto-line-preview--highlight ()
   "Keep highlight for a fixed time."
   (when goto-line-preview-hl-duration
-    (let ((overlay (make-overlay (line-beginning-position) (line-end-position))))
+    (let ((overlay (make-overlay (line-beginning-position) (1+ (line-end-position)))))
       (overlay-put overlay 'face 'goto-line-preview-hl)
+      (overlay-put overlay 'window (selected-window))
       (sit-for goto-line-preview-hl-duration)
       (delete-overlay overlay))))