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

How to get normal cursor in text mode?

[Waldek Hebisch]

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English, because the Emacs maintainers do not have
translators to read other languages for them.

Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list,
and to the gnu.emacs.bug news group.

In GNU Emacs 21.4.2 (i686-pc-linux-gnu)
 of 2005-11-02 on hera
configured using `configure  --with-x=no'
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: C
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: pl_PL
  locale-coding-system: iso-latin-2
  default-enable-multibyte-characters: t

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

Emacs turns on ugly big block cursor in text mode on Linux console. 
This cursor is very distracting, making emacs almost unusable. 
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. 
The patch by Stefan Monnier:

http://lists.gnu.org/archive/html/help-gnu-emacs/2005-10/msg00886.html

gives me back normal cursor.


Recent input:
ESC x r e p o r t - e m a c s - b u g RET

Recent messages:
(src/emacs)
Loading disp-table...done
For information about the GNU Project and its goals, type C-h C-p.
Loading emacsbug...done