help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: How to get normal cursor in text mode?


From: Stefan Monnier
Subject: Re: How to get normal cursor in text mode?
Date: Mon, 31 Oct 2005 23:22:40 -0500
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux)

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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]