Re: How to get normal cursor in text mode?

[Stefan Monnier <monnier@iro.umontreal.ca>]

>> From some time emacs turn on ugly big block cursor in text mode on
> Linux console. This cursor is very distracting, making emacs almost
> unusable. Facts:
> - most other editors just use normal cursor
> - I _can_ stop emacs using block cursor by telling emacs that it
>   is running on vt100
> - the Cursor customization group seem to contain options about X

> Is there a way to tell emacs to use normal cursor? IFAICS emacs
> is actively working to turn block cursor on, so it must contain
> somewhere special code to do this.

Indeed.  Try the patch below.  If it works for you, please report your
problem via M-x report-emacs-bug.


        Stefan


--- orig/src/term.c
+++ mod/src/term.c
@@ -275,7 +275,7 @@
 char *TS_termcap_modes;		/* "ti" */
 char *TS_visible_bell;		/* "vb" */
 char *TS_cursor_normal;		/* "ve" */
-char *TS_cursor_visible;	/* "vs" */
+char *TS_cursor_very_visible;	/* "vs" */
 char *TS_cursor_invisible;	/* "vi" */
 char *TS_set_window;		/* "wi" (4 params, start and end of window,
 				   each as vpos and hpos) */
@@ -460,7 +460,7 @@
 	    putchar ('\n');
 	}
 
-      OUTPUT_IF (TS_cursor_visible);
+      OUTPUT_IF (TS_cursor_normal); /* TS_cursor_very_visible */
       OUTPUT_IF (TS_keypad_mode);
       losecursor ();
     }
@@ -615,7 +615,7 @@
     {
       tty_cursor_hidden = 0;
       OUTPUT_IF (TS_cursor_normal);
-      OUTPUT_IF (TS_cursor_visible);
+      /* OUTPUT_IF (TS_cursor_very_visible); */
     }
 }
 
@@ -2416,7 +2416,7 @@
   Up = tgetstr ("up", address);
   TS_visible_bell = tgetstr ("vb", address);
   TS_cursor_normal = tgetstr ("ve", address);
-  TS_cursor_visible = tgetstr ("vs", address);
+  TS_cursor_very_visible = tgetstr ("vs", address);
   TS_cursor_invisible = tgetstr ("vi", address);
   TS_set_window = tgetstr ("wi", address);