-/* terminal control module for terminals described by TERMCAP
- Copyright (C) 1985, 86, 87, 93, 94, 95, 98
- Free Software Foundation, Inc.
+/* Terminal control module for terminals described by TERMCAP
+ Copyright (C) 1985, 86, 87, 93, 94, 95, 98, 2000, 2001
+ Free Software Foundation, Inc.
This file is part of GNU Emacs.
the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */
-/* New redisplay, TTY faces by Gerd Moellmann <gerd@acm.org>. */
-
+/* New redisplay, TTY faces by Gerd Moellmann <gerd@gnu.org>. */
#include <config.h>
#include <stdio.h>
#include "dispextern.h"
#include "window.h"
-#ifdef HAVE_TERMCAP_H
+/* For now, don't try to include termcap.h. On some systems,
+ configure finds a non-standard termcap.h that the main build
+ won't find. */
+
+#if defined HAVE_TERMCAP_H && 0
#include <termcap.h>
#else
extern void tputs P_ ((const char *, int, int (*)(int)));
This should clear mouse_moved until the next motion
event arrives. */
+
void (*mouse_position_hook) P_ ((FRAME_PTR *f, int insist,
Lisp_Object *bar_window,
enum scroll_bar_part *part,
frame; under X, this means it lies about where the focus is.
This hook tells the window system code to re-decide where to put
the highlight. */
+
void (*frame_rehighlight_hook) P_ ((FRAME_PTR f));
/* If we're displaying frames using a window system that can stack
If RAISE is non-zero, F is brought to the front, before all other
windows. If RAISE is zero, F is sent to the back, behind all other
windows. */
+
void (*frame_raise_lower_hook) P_ ((FRAME_PTR f, int raise));
/* Set the vertical scroll bar for WINDOW to have its upper left corner
If non-zero, this hook should be safe to apply to any frame,
whether or not it can support scroll bars, and whether or not it is
currently displaying them. */
+
void (*condemn_scroll_bars_hook) P_ ((FRAME_PTR frame));
/* Unmark WINDOW's scroll bar for deletion in this judgement cycle.
Note that it's okay to redeem a scroll bar that is not condemned. */
+
void (*redeem_scroll_bar_hook) P_ ((struct window *window));
/* Remove all scroll bars on FRAME that haven't been saved since the
If non-zero, this hook should be safe to apply to any frame,
whether or not it can support scroll bars, and whether or not it is
currently displaying them. */
+
void (*judge_scroll_bars_hook) P_ ((FRAME_PTR FRAME));
/* Hook to call in estimate_mode_line_height, if any. */
static int system_uses_terminfo;
+/* Flag used in tty_show/hide_cursor. */
+
+static int tty_cursor_hidden;
+
char *tparam ();
extern char *tgetstr ();
\f
#ifdef WINDOWSNT
-
/* We aren't X windows, but we aren't termcap either. This makes me
uncertain as to what value to use for frame.output_method. For
this file, we'll define FRAME_TERMCAP_P to be zero so that our
void
ring_bell ()
{
- if (! NILP (Vring_bell_function))
+ if (!NILP (Vring_bell_function))
{
Lisp_Object function;
We don't specbind it, because that would carefully
restore the bad value if there's an error
and make the loop of errors happen anyway. */
+
function = Vring_bell_function;
Vring_bell_function = Qnil;
call0 (function);
Vring_bell_function = function;
- return;
- }
-
- if (! FRAME_TERMCAP_P (XFRAME (selected_frame)))
- {
- (*ring_bell_hook) ();
- return;
}
- OUTPUT (TS_visible_bell && visible_bell ? TS_visible_bell : TS_bell);
+ else if (!FRAME_TERMCAP_P (XFRAME (selected_frame)))
+ (*ring_bell_hook) ();
+ else
+ OUTPUT (TS_visible_bell && visible_bell ? TS_visible_bell : TS_bell);
}
void
set_terminal_modes ()
{
- if (! FRAME_TERMCAP_P (XFRAME (selected_frame)))
+ if (FRAME_TERMCAP_P (XFRAME (selected_frame)))
{
- (*set_terminal_modes_hook) ();
- return;
+ OUTPUT_IF (TS_termcap_modes);
+ OUTPUT_IF (TS_cursor_visible);
+ OUTPUT_IF (TS_keypad_mode);
+ losecursor ();
}
- OUTPUT_IF (TS_termcap_modes);
- OUTPUT_IF (TS_cursor_visible);
- OUTPUT_IF (TS_keypad_mode);
- losecursor ();
+ else
+ (*set_terminal_modes_hook) ();
}
void
reset_terminal_modes ()
{
- if (! FRAME_TERMCAP_P (XFRAME (selected_frame)))
+ if (FRAME_TERMCAP_P (XFRAME (selected_frame)))
{
- if (reset_terminal_modes_hook)
- (*reset_terminal_modes_hook) ();
- return;
- }
- if (TN_standout_width < 0)
- turn_off_highlight ();
- turn_off_insert ();
- OUTPUT_IF (TS_end_keypad_mode);
- OUTPUT_IF (TS_cursor_normal);
- OUTPUT_IF (TS_end_termcap_modes);
- OUTPUT_IF (TS_orig_pair);
- /* Output raw CR so kernel can track the cursor hpos. */
- /* But on magic-cookie terminals this can erase an end-standout marker and
- cause the rest of the frame to be in standout, so move down first. */
- if (TN_standout_width >= 0)
- cmputc ('\n');
- cmputc ('\r');
+ if (TN_standout_width < 0)
+ turn_off_highlight ();
+ turn_off_insert ();
+ OUTPUT_IF (TS_end_keypad_mode);
+ OUTPUT_IF (TS_cursor_normal);
+ OUTPUT_IF (TS_end_termcap_modes);
+ OUTPUT_IF (TS_orig_pair);
+ /* Output raw CR so kernel can track the cursor hpos. */
+ /* But on magic-cookie terminals this can erase an end-standout
+ marker and cause the rest of the frame to be in standout, so
+ move down first. */
+ if (TN_standout_width >= 0)
+ cmputc ('\n');
+ cmputc ('\r');
+ }
+ else if (reset_terminal_modes_hook)
+ (*reset_terminal_modes_hook) ();
}
void
update_begin (f)
- FRAME_PTR f;
+ struct frame *f;
{
updating_frame = f;
- if (! FRAME_TERMCAP_P (updating_frame))
- (*update_begin_hook) (f);
- else
- tty_hide_cursor ();
+ if (!FRAME_TERMCAP_P (f))
+ update_begin_hook (f);
}
void
update_end (f)
- FRAME_PTR f;
+ struct frame *f;
{
- if (! FRAME_TERMCAP_P (updating_frame))
+ if (FRAME_TERMCAP_P (f))
{
- (*update_end_hook) (f);
- updating_frame = 0;
- return;
+ if (!XWINDOW (selected_window)->cursor_off_p)
+ tty_show_cursor ();
+ turn_off_insert ();
+ background_highlight ();
+ standout_requested = 0;
}
-
- if (!XWINDOW (selected_window)->cursor_off_p)
- tty_show_cursor ();
+ else
+ update_end_hook (f);
- turn_off_insert ();
- background_highlight ();
- standout_requested = 0;
- updating_frame = 0;
+ updating_frame = NULL;
}
void
set_terminal_window (size)
int size;
{
- if (! FRAME_TERMCAP_P (updating_frame))
+ if (FRAME_TERMCAP_P (updating_frame))
{
- (*set_terminal_window_hook) (size);
- return;
+ specified_window = size ? size : FRAME_HEIGHT (updating_frame);
+ if (scroll_region_ok)
+ set_scroll_region (0, specified_window);
}
- specified_window = size ? size : FRAME_HEIGHT (XFRAME (selected_frame));
- if (!scroll_region_ok)
- return;
- set_scroll_region (0, specified_window);
+ else
+ set_terminal_window_hook (size);
}
void
struct frame *sf = XFRAME (selected_frame);
if (TS_set_scroll_region)
- {
- buf = tparam (TS_set_scroll_region, 0, 0, start, stop - 1);
- }
+ buf = tparam (TS_set_scroll_region, 0, 0, start, stop - 1);
else if (TS_set_scroll_region_1)
- {
- buf = tparam (TS_set_scroll_region_1, 0, 0,
- FRAME_HEIGHT (sf), start,
- FRAME_HEIGHT (sf) - stop,
- FRAME_HEIGHT (sf));
- }
+ buf = tparam (TS_set_scroll_region_1, 0, 0,
+ FRAME_HEIGHT (sf), start,
+ FRAME_HEIGHT (sf) - stop,
+ FRAME_HEIGHT (sf));
else
- {
- buf = tparam (TS_set_window, 0, 0, start, 0, stop, FRAME_WIDTH (sf));
- }
+ buf = tparam (TS_set_window, 0, 0, start, 0, stop, FRAME_WIDTH (sf));
+
OUTPUT (buf);
xfree (buf);
losecursor ();
}
+
\f
-void
+static void
turn_on_insert ()
{
if (!insert_mode)
}
}
-void
+static void
turn_on_highlight ()
{
if (TN_standout_width < 0)
}
}
+static void
+toggle_highlight ()
+{
+ if (standout_mode)
+ turn_off_highlight ();
+ else
+ turn_on_highlight ();
+}
+
/* Make cursor invisible. */
static void
tty_hide_cursor ()
{
- OUTPUT_IF (TS_cursor_invisible);
+ if (tty_cursor_hidden == 0)
+ {
+ tty_cursor_hidden = 1;
+ OUTPUT_IF (TS_cursor_invisible);
+ }
}
static void
tty_show_cursor ()
{
- OUTPUT_IF (TS_cursor_normal);
- OUTPUT_IF (TS_cursor_visible);
+ if (tty_cursor_hidden)
+ {
+ tty_cursor_hidden = 0;
+ OUTPUT_IF (TS_cursor_normal);
+ OUTPUT_IF (TS_cursor_visible);
+ }
}
/* Write a standout marker or end-standout marker at the front of the line
at vertical position vpos. */
-void
+static void
write_standout_marker (flag, vpos)
int flag, vpos;
{
- if (flag || (TS_end_standout_mode && !TF_teleray && !se_is_so
- && !(TF_xs && TN_standout_width == 0)))
+ if (flag
+ || (TS_end_standout_mode && !TF_teleray && !se_is_so
+ && !(TF_xs && TN_standout_width == 0)))
{
cmgoto (vpos, 0);
cmplus (TN_standout_width);
struct glyph *src_start = src, *src_end = src + src_len;
unsigned char *dst_start = dst, *dst_end = dst + dst_len;
register GLYPH g;
- unsigned int c;
unsigned char workbuf[MAX_MULTIBYTE_LENGTH], *buf;
int len;
register int tlen = GLYPH_TABLE_LENGTH;
}
turn_off_insert ();
+ tty_hide_cursor ();
/* Don't dare write in last column of bottom line, if Auto-Wrap,
since that would scroll the whole frame on some terminals. */
int face_id;
{
struct face *face = FACE_FROM_ID (f, face_id);
+ long fg = face->foreground;
+ long bg = face->background;
- xassert (face != NULL);
+ /* Do this first because TS_end_standout_mode may be the same
+ as TS_exit_attribute_mode, which turns all appearances off. */
+ if (MAY_USE_WITH_COLORS_P (NC_REVERSE))
+ {
+ if (TN_max_colors > 0)
+ {
+ if (fg >= 0 && bg >= 0)
+ {
+ /* If the terminal supports colors, we can set them
+ below without using reverse video. The face's fg
+ and bg colors are set as they should appear on
+ the screen, i.e. they take the inverse-video'ness
+ of the face already into account. */
+ }
+ else if (inverse_video)
+ {
+ if (fg == FACE_TTY_DEFAULT_FG_COLOR
+ || bg == FACE_TTY_DEFAULT_BG_COLOR)
+ toggle_highlight ();
+ }
+ else
+ {
+ if (fg == FACE_TTY_DEFAULT_BG_COLOR
+ || bg == FACE_TTY_DEFAULT_FG_COLOR)
+ toggle_highlight ();
+ }
+ }
+ else
+ {
+ /* If we can't display colors, use reverse video
+ if the face specifies that. */
+ if (inverse_video)
+ {
+ if (fg == FACE_TTY_DEFAULT_FG_COLOR
+ || bg == FACE_TTY_DEFAULT_BG_COLOR)
+ toggle_highlight ();
+ }
+ else
+ {
+ if (fg == FACE_TTY_DEFAULT_BG_COLOR
+ || bg == FACE_TTY_DEFAULT_FG_COLOR)
+ toggle_highlight ();
+ }
+ }
+ }
if (face->tty_bold_p)
{
&& MAY_USE_WITH_COLORS_P (NC_UNDERLINE))
OUTPUT1_IF (TS_enter_underline_mode);
- if (MAY_USE_WITH_COLORS_P (NC_REVERSE))
- if (face->tty_reverse_p
- || face->foreground == FACE_TTY_DEFAULT_BG_COLOR
- || face->background == FACE_TTY_DEFAULT_FG_COLOR)
- OUTPUT1_IF (TS_enter_reverse_mode);
-
if (TN_max_colors > 0)
{
char *p;
- if (face->foreground != FACE_TTY_DEFAULT_COLOR
- && face->foreground != FACE_TTY_DEFAULT_FG_COLOR
- && face->foreground != FACE_TTY_DEFAULT_BG_COLOR
- && TS_set_foreground)
+ if (fg >= 0 && TS_set_foreground)
{
- p = tparam (TS_set_foreground, NULL, 0, (int) face->foreground);
+ p = tparam (TS_set_foreground, NULL, 0, (int) fg);
OUTPUT (p);
xfree (p);
}
- if (face->background != FACE_TTY_DEFAULT_COLOR
- && face->background != FACE_TTY_DEFAULT_BG_COLOR
- && face->background != FACE_TTY_DEFAULT_FG_COLOR
- && TS_set_background)
+ if (bg >= 0 && TS_set_background)
{
- p = tparam (TS_set_background, NULL, 0, (int) face->background);
+ p = tparam (TS_set_background, NULL, 0, (int) bg);
OUTPUT (p);
xfree (p);
}
HCoop / bpt / emacs.git / blobdiff