How to get normal cursor in text mode?

How to get normal cursor in text mode?

[Waldek Hebisch]

>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.

BTW. The terminal trick works, but I am searching a way which does
not require messing in the system.

-- 
                              Waldek Hebisch
hebisch@math.uni.wroc.pl 

Re: How to get normal cursor in text mode?

[Stefan Monnier]

>> 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);