(system_uses_terminfo): New variable.

(syms_of_term): New function, to initialize it.

diff --git a/src/term.c b/src/term.c
index 2d99fb95d5823a7ad0ab09a4da48d8410f2f6852..8f7bf3aef4dffdc4e2c738cd717bada4c9f5fe60 100644 (file)
--- a/src/term.c
+++ b/src/term.c
@@ -281,6 +281,9 @@ int specified_window;
 
 FRAME_PTR updating_frame;
 
+/* Provided for lisp packages.  */
+static int system_uses_terminfo;
+
 char *tparam ();
 \f
 ring_bell ()
@@ -1651,3 +1654,15 @@ fatal (str, arg1, arg2)
   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
+}