fix drawing of line-endings-overlay

lem-project · Nov 26, 2023 · a885028 · a885028
1 parent 6e60df5
commit a885028
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/display/logical-line.lisp b/src/display/logical-line.lisp
@@ -93,7 +93,8 @@
         (loop :for overlay :in overlays
               :when (overlay-within-point-p overlay point)
               :do (cond ((typep overlay 'line-endings-overlay)
-                         (setf line-end-overlay overlay))
+                         (when (same-line-p (overlay-end overlay) point)
+                           (setf line-end-overlay overlay)))
                         ((typep overlay 'line-overlay)
                          (let ((attribute (overlay-attribute overlay)))
                            (setf attributes