/* terminal control module for terminals described by TERMCAP
- Copyright (C) 1985, 1986, 1987, 1992, 1993 Free Software Foundation, Inc.
+ Copyright (C) 1985, 1986, 1987, 1993, 1994 Free Software Foundation, Inc.
This file is part of GNU Emacs.
#include <stdio.h>
#include <ctype.h>
-#include "config.h"
+#include <config.h>
#include "termchar.h"
#include "termopts.h"
#include "cm.h"
#define OUTPUT_IF(a) { if (a) tputs (a, FRAME_HEIGHT (selected_frame) - curY, cmputc); }
#define OUTPUT1_IF(a) { if (a) tputs (a, 1, cmputc); }
-/* Terminal charateristics that higher levels want to look at.
+/* Terminal characteristics that higher levels want to look at.
These are all extern'd in termchar.h */
int must_write_spaces; /* Nonzero means spaces in the text
int (*read_socket_hook) ();
+int (*frame_up_to_date_hook) ();
+
/* Return the current position of the mouse.
Set *f to the frame the mouse is in, or zero if the mouse is in no
FRAME_PTR updating_frame;
+/* Provided for lisp packages. */
+static int system_uses_terminfo;
+
char *tparam ();
\f
ring_bell ()
{
if (! FRAME_TERMCAP_P (updating_frame))
{
- (*update_end_hook) (f);
updating_frame = 0;
+ (*update_end_hook) (f);
return;
}
turn_off_insert ();
buf = tparam (TS_set_window, 0, 0, start, 0, stop, FRAME_WIDTH (selected_frame));
}
OUTPUT (buf);
- free (buf);
+ xfree (buf);
losecursor ();
}
\f
{
buf = tparam (TS_ins_multi_chars, 0, 0, len);
OUTPUT1 (buf);
- free (buf);
+ xfree (buf);
if (start)
write_glyphs (start, len);
return;
{
buf = tparam (TS_del_multi_chars, 0, 0, n);
OUTPUT1 (buf);
- free (buf);
+ xfree (buf);
}
else
for (i = 0; i < n; i++)
background_highlight ();
buf = tparam (multi, 0, 0, i);
OUTPUT (buf);
- free (buf);
+ xfree (buf);
}
else if (single)
{
"k9", "f9",
};
+static char **term_get_fkeys_arg;
+static Lisp_Object term_get_fkeys_1 ();
+
/* Find the escape codes sent by the function keys for Vfunction_key_map.
This function scans the termcap function key sequence entries, and
adds entries to Vfunction_key_map for each function key it finds. */
void
term_get_fkeys (address)
char **address;
+{
+ /* We run the body of the function (term_get_fkeys_1) and ignore all Lisp
+ errors during the call. The only errors should be from Fdefine_key
+ when given a key sequence containing an invalid prefix key. If the
+ termcap defines function keys which use a prefix that is already bound
+ to a command by the default bindings, we should silently ignore that
+ function key specification, rather than giving the user an error and
+ refusing to run at all on such a terminal. */
+
+ extern Lisp_Object Fidentity ();
+ static Lisp_Object term_get_fkeys_1 ();
+ term_get_fkeys_arg = address;
+ internal_condition_case (term_get_fkeys_1, Qerror, Fidentity);
+}
+
+static Lisp_Object
+term_get_fkeys_1 ()
{
extern char *tgetstr ();
- char capval[32];
int i;
+ char **address = term_get_fkeys_arg;
+
+ /* This can happen if CANNOT_DUMP or with strange options. */
+ if (!initialized)
+ Vfunction_key_map = Fmake_sparse_keymap (Qnil);
+
for (i = 0; i < (sizeof (keys)/sizeof (keys[0])); i++)
{
char *sequence = tgetstr (keys[i].cap, address);
if (sequence)
- Fdefine_key (Vfunction_key_map,
- build_string (sequence),
- Fmake_vector (make_number (1), intern (keys[i].name)));
+ Fdefine_key (Vfunction_key_map, build_string (sequence),
+ Fmake_vector (make_number (1),
+ intern (keys[i].name)));
}
/* The uses of the "k0" capability are inconsistent; sometimes it
describes F10, whereas othertimes it describes F0 and "k;" describes F10.
- We will attempt to politely accomodate both systems by testing for
+ We will attempt to politely accommodate both systems by testing for
"k;", and if it is present, assuming that "k0" denotes F0, otherwise F10.
*/
{
if (k_semi)
{
- Fdefine_key (Vfunction_key_map,
- build_string (k_semi),
+ Fdefine_key (Vfunction_key_map, build_string (k_semi),
Fmake_vector (make_number (1), intern ("f10")));
k0_name = "f0";
}
if (k0)
- Fdefine_key (Vfunction_key_map,
- build_string (k0),
+ Fdefine_key (Vfunction_key_map, build_string (k0),
Fmake_vector (make_number (1), intern (k0_name)));
}
{
char fcap[3], fkey[4];
- fcap[0] = 'k'; fcap[2] = '\0';
+ fcap[0] = 'F'; fcap[2] = '\0';
for (i = 11; i < 64; i++)
{
if (i <= 19)
else
fcap[1] = 'a' + i - 11;
- if (tgetstr(fcap, &capval))
- {
- (void) sprintf(fkey, "f%d", i);
- Fdefine_key (Vfunction_key_map,
- build_string (fcap),
- Fmake_vector (make_number (1), intern (fkey)));
- }
+ {
+ char *sequence = tgetstr (fcap, address);
+ if (sequence)
+ {
+ sprintf (fkey, "f%d", i);
+ Fdefine_key (Vfunction_key_map, build_string (sequence),
+ Fmake_vector (make_number (1),
+ intern (fkey)));
+ }
+ }
}
}
* Various mappings to try and get a better fit.
*/
{
-#define CONDITIONAL_REASSIGN(cap1, cap2, sym) \
- if (!tgetstr(cap1, &capval) && tgetstr(cap2, &capval)) \
- Fdefine_key (Vfunction_key_map, \
- build_string (cap2), \
- Fmake_vector (make_number (1), intern (sym)))
+#define CONDITIONAL_REASSIGN(cap1, cap2, sym) \
+ if (!tgetstr (cap1, address)) \
+ { \
+ char *sequence = tgetstr (cap2, address); \
+ if (sequence) \
+ Fdefine_key (Vfunction_key_map, build_string (sequence), \
+ Fmake_vector (make_number (1), \
+ intern (sym))); \
+ }
/* if there's no key_next keycap, map key_npage to `next' keysym */
- CONDITIONAL_REASSIGN("%5", "kN", "next");
+ CONDITIONAL_REASSIGN ("%5", "kN", "next");
/* if there's no key_prev keycap, map key_ppage to `previous' keysym */
- CONDITIONAL_REASSIGN("%8", "kP", "previous");
+ CONDITIONAL_REASSIGN ("%8", "kP", "prior");
/* if there's no key_dc keycap, map key_ic to `insert' keysym */
- CONDITIONAL_REASSIGN("kD", "kI", "insert");
+ CONDITIONAL_REASSIGN ("kD", "kI", "insert");
#undef CONDITIONAL_REASSIGN
}
}
if (status < 0)
fatal ("Cannot open termcap database file.\n");
if (status == 0)
- fatal ("Terminal type %s is not defined.\n", terminal_type);
+ fatal ("Terminal type %s is not defined.\n\
+If that is not the actual type of terminal you have,\n\
+use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
+`setenv TERM ...') to specify the correct type. It may be necessary\n\
+to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.\n",
+ terminal_type);
#ifdef TERMINFO
area = (char *) malloc (2044);
TS_standout_mode = tgetstr ("us", address);
}
+ /* If no `se' string, try using a `me' string instead.
+ If that fails, we can't use standout mode at all. */
+ if (TS_end_standout_mode == 0)
+ {
+ char *s = tgetstr ("me");
+ if (s != 0)
+ TS_end_standout_mode = s;
+ else
+ TS_standout_mode = 0;
+ }
+
if (TF_teleray)
{
Wcm.cm_tab = 0;
fatal ("Terminal type \"%s\" is not powerful enough to run Emacs.\n\
It lacks the ability to position the cursor.\n\
If that is not the actual type of terminal you have,\n\
-use the C-shell command `setenv TERM ...' to specify the correct type.\n\
-It may be necessary to do `unsetenv TERMCAP' as well.\n",
+use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
+`setenv TERM ...') to specify the correct type. It may be necessary\n\
+to do `unset TERMCAP' (C-shell: `unsetenv TERMCAP') as well.\n",
terminal_type);
#endif
if (FRAME_HEIGHT (selected_frame) <= 0
fflush (stderr);
exit (1);
}
+
+syms_of_term ()
+{
+ DEFVAR_BOOL ("system-uses-terminfo", &system_uses_terminfo,
+ "Non-nil means the system uses terminfo rather than termcap.\n\
+This variable can be used by terminal emulator packages.");
+#ifdef TERMINFO
+ system_uses_terminfo = 1;
+#else
+ system_uses_terminfo = 0;
+#endif
+}