diff --git a/src/display/logical-line.lisp b/src/display/logical-line.lisp index 24ac44a1c..baf6472af 100644 --- 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