Preserve point and evil visual markers across redraws

`evil-ghostel--around-redraw' used to save and restore only `point',
and only in non-insert/emacs states.  Native `ghostel--redraw'
rewrites the viewport region on every call, moving every marker in
the buffer — `evil-visual-beginning' and `evil-visual-end' drift
asymmetrically by insertion-type, so `v' in a buffer with a
streaming TUI (Claude Code, watch, streaming logs) shows a
multi-row selection the moment `v' is pressed: mark had drifted
backwards and `evil-visual-end' ratcheted forward while the user
was idle in the buffer.

Extend the advice to save and restore:

  - `point' in non-terminal states (unchanged).
  - `evil-visual-beginning' and `evil-visual-end' in `visual' state.

`mark' is preserved by `ghostel--redraw' itself (see PR #163 — the
native-side fix lives in `src/render.zig', where all users benefit
regardless of whether evil-ghostel is loaded).  This PR layers on
top of that — it can be merged after or before #163; if merged
first, `mark' stays drifting until the native patch lands.

Tests: three mock-based cases covering point preservation in
normal, point follow-through in emacs, and visual-marker
preservation in visual.

Author: Cianidos

evil-ghostel.el

@@ -102,24 +102,42 @@ placement math the native module performs in `src/render.zig'."
             ((< dx 0) (dotimes (_ (abs dx)) (ghostel--send-encoded "left" "")))))))
 
 ;; ---------------------------------------------------------------------------
-;; Redraw: preserve point in normal state
+;; Redraw: preserve point and evil visual markers across the native call
 ;; ---------------------------------------------------------------------------
 
 (defun evil-ghostel--around-redraw (orig-fn term &optional full)
-  "Preserve Emacs point during redraws in evil normal state.
+  "Preserve point and evil visual markers across the native redraw call.
+Native `ghostel--redraw' in `src/render.zig' rewrites the viewport
+region, moving every marker in the buffer.  `point' (non-terminal
+states) and the evil-specific visual range markers are restored here;
+`mark' is preserved by the native module itself and needs no handling
+at this layer.
+
+  - `point' in non-terminal states.  In `insert' and `emacs' point
+    intentionally follows the TUI cursor.
+  - `evil-visual-beginning' and `evil-visual-end' in `visual' state.
+
 ORIG-FN is the advised `ghostel--redraw' called with TERM and FULL.
-Without this, the ~30fps redraw timer would snap point back to
-the terminal cursor, undoing any evil `normal-mode' navigation.
-`emacs-state' is evil's vanilla-Emacs escape hatch; point should
-follow the terminal cursor there just like it does in insert-state,
-otherwise the cursor gets stuck wherever it was on state entry while
-the TUI keeps redrawing elsewhere."
+Skipped when the terminal is in alt-screen mode (1049); apps there
+own the screen and drive their own redraw cycle."
   (if (and evil-ghostel-mode
-           (not (memq evil-state '(insert emacs)))
            (not (ghostel--mode-enabled term 1049)))
-      (let ((saved-point (point)))
+      (let* ((preserve-point (not (memq evil-state '(insert emacs))))
+             (visual-p (eq evil-state 'visual))
+             (saved-point (and preserve-point (point)))
+             (saved-vb (and visual-p (bound-and-true-p evil-visual-beginning)
+                            (marker-position evil-visual-beginning)))
+             (saved-ve (and visual-p (bound-and-true-p evil-visual-end)
+                            (marker-position evil-visual-end))))
         (funcall orig-fn term full)
-        (goto-char (min saved-point (point-max))))
+        (when preserve-point
+          (goto-char (min saved-point (point-max))))
+        (when visual-p
+          (let ((pmax (point-max)))
+            (when saved-vb
+              (set-marker evil-visual-beginning (min saved-vb pmax)))
+            (when saved-ve
+              (set-marker evil-visual-end (min saved-ve pmax))))))
     (funcall orig-fn term full)))
 
 ;; ---------------------------------------------------------------------------

test/evil-ghostel-test.el

@@ -127,6 +127,93 @@ Regression guard: the minor-mode body used to call
   (evil-ghostel-test--with-evil-buffer
    (should-not evil-move-cursor-back)))
 
+;; -----------------------------------------------------------------------
+;; Test: around-redraw preserves point / mark / visual markers
+;; -----------------------------------------------------------------------
+
+(defmacro evil-ghostel-test--simulating-redraw (&rest body)
+  "Run BODY with `ghostel--redraw' replaced by a buffer-rewriter.
+The mock erases the buffer and reinserts the same text, which is what
+the native full-redraw path does at the Emacs level — every marker in
+the buffer snaps to `point-min' across the call."
+  `(cl-letf (((symbol-function 'ghostel--redraw)
+              (lambda (_term &optional _full)
+                (let ((text (buffer-string)))
+                  (erase-buffer)
+                  (insert text))))
+             ((symbol-function 'ghostel--mode-enabled)
+              (lambda (_term _mode) nil)))
+     ,@body))
+
+(ert-deftest evil-ghostel-test-around-redraw-preserves-point-in-normal ()
+  "Point is restored in non-terminal states after the native redraw call."
+  (evil-ghostel-test--with-evil-buffer
+   (insert "one\ntwo\nthree\nfour\nfive\n")
+   (evil-normal-state)
+   (goto-char (point-min))
+   (search-forward "three")
+   (let ((target (point)))
+     (evil-ghostel-test--simulating-redraw
+      (evil-ghostel--around-redraw (symbol-function 'ghostel--redraw) nil))
+     (should (= target (point))))))
+
+(ert-deftest evil-ghostel-test-around-redraw-lets-point-follow-in-emacs ()
+  "Point is NOT preserved in `emacs'/`insert' — it follows the TUI cursor."
+  (evil-ghostel-test--with-evil-buffer
+   (insert "one\ntwo\nthree\nfour\nfive\n")
+   (evil-emacs-state)
+   (goto-char (point-min))
+   (search-forward "three")
+   (evil-ghostel-test--simulating-redraw
+    ;; Mock redraw places point at point-min (like eraseBuffer does).
+    (evil-ghostel--around-redraw
+     (lambda (_term &optional _full)
+       (let ((text (buffer-string)))
+         (erase-buffer)
+         (insert text)
+         (goto-char (point-min))))
+     nil))
+   (should (= (point-min) (point)))))
+
+(ert-deftest evil-ghostel-test-around-redraw-preserves-visual-markers ()
+  "`evil-visual-beginning'/`evil-visual-end' are restored in visual state."
+  (evil-ghostel-test--with-evil-buffer
+   (insert "one\ntwo\nthree\nfour\nfive\n")
+   (goto-char (point-min))
+   (search-forward "two")
+   (let ((vb-target (point)))
+     (search-forward "four")
+     (let ((ve-target (point)))
+       (setq-local evil-visual-beginning (copy-marker vb-target))
+       (setq-local evil-visual-end (copy-marker ve-target t))
+       (let ((evil-state 'visual))
+         (evil-ghostel-test--simulating-redraw
+          (evil-ghostel--around-redraw
+           (symbol-function 'ghostel--redraw) nil)))
+       (should (= vb-target (marker-position evil-visual-beginning)))
+       (should (= ve-target (marker-position evil-visual-end)))))))
+
+(ert-deftest evil-ghostel-test-around-redraw-bypassed-in-alt-screen ()
+  "Advice is a passthrough when the terminal is in alt-screen mode (1049).
+Fullscreen TUIs own the screen and drive their own redraw cycle; the
+advice must not restore point or visual markers there."
+  (evil-ghostel-test--with-evil-buffer
+   (insert "one\ntwo\nthree\nfour\nfive\n")
+   (evil-normal-state)
+   (goto-char (point-min))
+   (search-forward "three")
+   (cl-letf (((symbol-function 'ghostel--redraw)
+              (lambda (_term &optional _full)
+                (let ((text (buffer-string)))
+                  (erase-buffer)
+                  (insert text)
+                  (goto-char (point-min)))))
+             ((symbol-function 'ghostel--mode-enabled)
+              (lambda (_term mode) (= mode 1049))))
+     (evil-ghostel--around-redraw (symbol-function 'ghostel--redraw) nil))
+   ;; Advice bypassed → the mock's point placement (point-min) wins.
+   (should (= (point-min) (point)))))
+
 ;; -----------------------------------------------------------------------
 ;; Test: reset-cursor-point
 ;; -----------------------------------------------------------------------
@@ -382,20 +469,6 @@ redrawing elsewhere."
                                       (ghostel--set-cursor-style 0 t)
                                       (should evil-called)))))
 
-;; -----------------------------------------------------------------------
-;; Test: normal-state-entry hook
-;; -----------------------------------------------------------------------
-
-(ert-deftest evil-ghostel-test-normal-entry-snaps-point ()
-  "Test that entering normal state snaps point to terminal cursor."
-  (evil-ghostel-test--with-buffer 5 40 "hello world"
-                                  (evil-insert-state)
-                                  ;; Move point away
-                                  (goto-char (point-min))
-                                  ;; Enter normal state — should snap to terminal cursor
-                                  (evil-normal-state)
-                                  (should (= 11 (current-column)))))
-
 ;; -----------------------------------------------------------------------
 ;; Test: delete-region primitive
 ;; -----------------------------------------------------------------------