Add ghostel-ignore-cursor-change defcustom

When non-nil, terminal requests to change cursor shape or visibility
are ignored.  Useful when editor-owned cursor behavior should take
precedence.  Copy mode always forces a visible cursor regardless.

Inspired by kiennq/ghostel fork.

Author: dakra

README.md

@@ -393,6 +393,7 @@ individual faces with `M-x customize-face`.
 | `ghostel-enable-osc52`           | `nil`                | Allow apps to set clipboard via OSC 52                   |
 | `ghostel-enable-url-detection`   | `t`                  | Linkify plain-text URLs in terminal output               |
 | `ghostel-enable-file-detection`  | `t`                  | Linkify file:line references in terminal output          |
+| `ghostel-ignore-cursor-change`   | `nil`                | Ignore terminal-driven cursor shape/visibility changes   |
 | `ghostel-keymap-exceptions`      | `("C-c" "C-x" ...)` | Keys passed through to Emacs                             |
 | `ghostel-exit-functions`         | `nil`                | Hook run when the shell process exits                    |
 

ghostel.el

@@ -266,6 +266,13 @@ When nil, falls back to `tramp-default-method'."
 These keys pass through to Emacs instead."
   :type '(repeat string))
 
+(defcustom ghostel-ignore-cursor-change nil
+  "When non-nil, ignore terminal requests to change cursor shape or visibility.
+Useful when editor-owned cursor behavior should take precedence over
+terminal-driven cursor changes.  Copy mode restores `cursor-type' to its
+default value."
+  :type 'boolean)
+
 (defcustom ghostel-scroll-on-input t
   "Automatically scroll to the bottom when typing in the terminal.
 When non-nil, any character typed while the viewport is scrolled
@@ -1707,8 +1714,10 @@ buffer has not been manually renamed by the user."
   "Set the cursor style based on terminal state.
 STYLE is one of: 0=bar, 1=block, 2=underline, 3=hollow-block.
 VISIBLE is t or nil.
-Skipped when copy mode is active because copy mode manages its own cursor."
-  (unless ghostel--copy-mode-active
+Skipped when copy mode is active because copy mode manages its own
+cursor, or when `ghostel-ignore-cursor-change' is non-nil."
+  (unless (or ghostel--copy-mode-active
+              ghostel-ignore-cursor-change)
     (setq cursor-type
           (if visible
               (pcase style

test/ghostel-test.el

@@ -1881,6 +1881,22 @@ buffer and hand nil to the native module."
             (should (null cursor-type))))                   ; cursor hidden again
       (kill-buffer buf))))
 
+(ert-deftest ghostel-test-ignore-cursor-change ()
+  "Test that `ghostel-ignore-cursor-change' suppresses cursor style updates."
+  (let ((buf (generate-new-buffer " *ghostel-test-ignore-cursor*")))
+    (unwind-protect
+        (with-current-buffer buf
+          (ghostel-mode)
+          ;; Default: cursor changes are applied
+          (let ((ghostel-ignore-cursor-change nil))
+            (ghostel--set-cursor-style 2 t)
+            (should (equal cursor-type '(hbar . 2))))
+          ;; With ignore: cursor changes are suppressed
+          (let ((ghostel-ignore-cursor-change t))
+            (ghostel--set-cursor-style 1 t)
+            (should (equal cursor-type '(hbar . 2)))))  ; unchanged
+      (kill-buffer buf))))
+
 ;; -----------------------------------------------------------------------
 ;; Test: copy-mode hl-line-mode management
 ;; -----------------------------------------------------------------------
@@ -2998,6 +3014,7 @@ while :; do sleep 0.1; done'\n")
     ghostel-test-osc51-eval-catches-errors
     ghostel-test-flush-pending-output-preserves-buffer
     ghostel-test-copy-mode-cursor
+    ghostel-test-ignore-cursor-change
     ghostel-test-copy-mode-hl-line
     ghostel-test-project-buffer-name
     ghostel-test-project-universal-arg