From 9b64a45998d6f523b4744c46445d8f7e7c6a0ae2 Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 8 Apr 1994 06:59:55 +0000
Subject: (system_uses_terminfo): New variable. (syms_of_term): New function,
 to initialize it.

---
 src/term.c | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/term.c b/src/term.c
index 2d99fb95d58..8f7bf3aef4d 100644
--- 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 ();
 
 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
+}
-- 
cgit v1.2.1