(system_uses_terminfo): New variable.

(syms_of_term): New function, to initialize it.

1 files changed, 15 insertions, 0 deletions

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
+}