fix(selection): show chars if marking backwards on single line

Walheimat · Oct 30, 2024 · f862b23 · f862b23
1 parent 682eca7
commit f862b23
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 3 deletions.
diff --git a/test/whale-line-segments-test.el b/test/whale-line-segments-test.el
@@ -219,6 +219,15 @@
       (push-mark))
     (goto-char (+ 4 (point-min)))
 
+    (should (string= "4" (whale-line-segments--selection--marked))))
+
+  (with-temp-buffer
+    (insert-file-contents rectangle)
+    (goto-char (+ 4 (point-min)))
+    (shut-up
+      (push-mark))
+    (goto-char (point-min))
+
     (should (string= "4" (whale-line-segments--selection--marked)))))
 
 (ert-deftest animation-animate ()

diff --git a/whale-line-segments.el b/whale-line-segments.el
@@ -389,9 +389,11 @@ single line show the columns."
 
     (if (or (> line-count 1)
             (and (= line-count 1)
-                 (= (point) (save-excursion
-                              (beginning-of-line)
-                              (point)))))
+                 (> (point) beg)
+                 (= (point)
+                    (save-excursion
+                      (beginning-of-line)
+                      (point)))))
         (whale-line-segments--selection--rows)
       (whale-line-segments--selection--columns))))