mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-01 18:00:40 -08:00
Code Issues Projects Releases Wiki Activity

(Valternate_cursor_type, Qalternate_cursor_type): Removed.

Browse source 
(get_window_cursor_type): Don't use them.
(syms_of_xdisp): Remove intern, staticpro, and defvar for them.
This commit is contained in:
Kim F. Storm 2002-08-30 23:10:09 +00:00
parent e0f7b1a80a
commit 8420a5dd02
1 changed files with 2 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

25
src/xdisp.c
View file

@ -537,13 +537,6 @@ static int message_cleared_p;
Lisp_Object Vcursor_in_non_selected_windows;
Lisp_Object Qcursor_in_non_selected_windows;
/* Specifies the desired cursor-type to use to show the blinking
cursor off state and cursor shown in non-selected windows.
t means to use the default. */
Lisp_Object Valternate_cursor_type;
Lisp_Object Qalternate_cursor_type;
/* How to blink the default frame cursor off. */
Lisp_Object Vblink_cursor_alist;
@ -15362,15 +15355,8 @@ get_window_cursor_type (w, width)
/* Cursor is blinked off, so determine how to "toggle" it. */
/* First try to use alternate-cursor-type, unless it is t. */
alt_cursor = Fbuffer_local_value (Qalternate_cursor_type, w->buffer);
if (!EQ (alt_cursor, Qt))
return get_specified_cursor_type (alt_cursor, width);
/* Then unless buffer's cursor-type is t (use default),
look for an entry matching normal cursor in blink-cursor-alist. */
if (!EQ (b->cursor_type, Qt) &&
(alt_cursor = Fassoc (b->cursor_type, Vblink_cursor_alist), !NILP (alt_cursor)))
/* First look for an entry matching the buffer's cursor-type in blink-cursor-alist. */
if ((alt_cursor = Fassoc (b->cursor_type, Vblink_cursor_alist), !NILP (alt_cursor)))
return get_specified_cursor_type (XCDR (alt_cursor), width);
/* Then see if frame has specified a specific blink off cursor type. */
@ -15499,8 +15485,6 @@ syms_of_xdisp ()
staticpro (&Qmessage_truncate_lines);
Qcursor_in_non_selected_windows = intern ("cursor-in-non-selected-windows");
staticpro (&Qcursor_in_non_selected_windows);
Qalternate_cursor_type = intern ("alternate-cursor-type");
staticpro (&Qalternate_cursor_type);
Qgrow_only = intern ("grow-only");
staticpro (&Qgrow_only);
Qinhibit_menubar_update = intern ("inhibit-menubar-update");
@ -15737,11 +15721,6 @@ go back to their normal size. */);
t means to use hollow box cursor. See `cursor-type' for other values. */);
Vcursor_in_non_selected_windows = Qt;
DEFVAR_LISP ("alternate-cursor-type", &Valternate_cursor_type,
doc: /* *Cursor type displayed in the blinking cursor off state.
t means to use default. See `cursor-type' for other values. */);
Valternate_cursor_type = Qt;
DEFVAR_LISP ("blink-cursor-alist", &Vblink_cursor_alist,
doc: /* Alist specifying how to blink the cursor off.
Each element has the form (ON-STATE . OFF-STATE). Whenever the