fix: Sip virtual line completely

emacs-sideline · Jun 27, 2024 · ba55945 · ba55945
1 parent 0c5d0ee
commit ba55945
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/sideline.el b/sideline.el
@@ -442,10 +442,12 @@ available lines in both directions (up & down)."
         (when-let* ((occ-bol (line-beginning-position))
                     ((and (not (memq occ-bol occupied-lines))
                           (not break-it)))
-                    (col (sideline--calc-space str-len on-left (sideline--opposing-str-len))))
-          (setq data (list (sideline--column-to-point (car col))
-                           (sideline--column-to-point (cdr col))
-                           occ-bol))
+                    (col (sideline--calc-space str-len on-left (sideline--opposing-str-len)))
+                    (pos-start (sideline--column-to-point (car col)))
+                    (pos-end   (sideline--column-to-point (cdr col)))
+                    ;; Skip virtual line from `truncate-lines'.
+                    ((= pos-start pos-end)))
+          (setq data (list pos-start pos-end occ-bol))
           (setq break-it t)
           (push occ-bol occupied-lines))
         (when (if going-up (bobp) (eobp)) (setq break-it t))))