From: Gerd Möllmann <gerd,moellmann@gmail.com>
Date: Sun, 16 Feb 2025 16:27:58 +0000 (+0100)
Subject: Hide cursor based on tty frame's `cursor-type'
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cef76fcd2fb1a2dbb9093209ce4fda0a025f7e64;p=emacs.git

Hide cursor based on tty frame's `cursor-type'

* src/dispnew.c (terminal_cursor_magic): if selected-frame has
`(cursor-type . nil)' parameter.

(cherry picked from commit a51cfbbd15889ce2af59b0b1bffac8735f70f6b9)
---

diff --git a/src/dispnew.c b/src/dispnew.c
index 49957e98c4f..349a415ebf9 100644
--- a/src/dispnew.c
+++ b/src/dispnew.c
@@ -3966,6 +3966,14 @@ terminal_cursor_magic (struct frame *root, struct frame *topmost_child)
 	    tty_hide_cursor (FRAME_TTY (root));
 	}
     }
+
+  /* Hide cursor if selected frame has (cursor-type . nil).  */
+  {
+    struct frame *sf = SELECTED_FRAME ();
+    Lisp_Object cursor = assq_no_quit (Qcursor_type, sf->param_alist);
+    if (CONSP (cursor) && NILP (XCDR (cursor)))
+      tty_hide_cursor (FRAME_TTY (root));
+  }
 }
 
 void