# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 765788395 0
# Node ID f9236145bad7f19312c50370d040cd309082efac
# Parent  e4299463079d17b772ac806f31b95eaf120a0621
(system_uses_terminfo): New variable.
(syms_of_term): New function, to initialize it.

diff -r e4299463079d -r f9236145bad7 src/term.c
--- a/src/term.c	Fri Apr 08 06:58:23 1994 +0000
+++ b/src/term.c	Fri Apr 08 06:59:55 1994 +0000
@@ -281,6 +281,9 @@
 
 FRAME_PTR updating_frame;
 
+/* Provided for lisp packages.  */
+static int system_uses_terminfo;
+
 char *tparam ();
 
 ring_bell ()
@@ -1651,3 +1654,15 @@
   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
+}