# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 789430103 0
# Node ID a4b616f7745c13b5142fac3ffb61f7ef10e58289
# Parent  363bf89a308130ae7068becc23d132514f60cf76
(te-terminfo-systems-regexp): Variable deleted.
(te-create-terminfo): Use system-uses-terminfo.

diff -r 363bf89a3081 -r a4b616f7745c lisp/terminal.el
--- a/lisp/terminal.el	Fri Jan 06 21:48:36 1995 +0000
+++ b/lisp/terminal.el	Fri Jan 06 22:08:23 1995 +0000
@@ -162,12 +162,6 @@
 ;; Required to support terminfo systems
 (defconst te-terminal-name-prefix "emacs-virtual")
 (defvar te-terminal-name nil)
-(defvar te-terminfo-systems-regexp "^[^-]*-[^-]*-\\(hpux\\|sysv\\)"
-  "Regexp to match system configurations for which we use terminfo.
-That means we provide a Terminfo terminal definition instead
-of a Termcap terminal definition, for the emulated terminal.
-On all other systems, we use termcap.")
-
 
 ;;;;  escape map
 
@@ -1227,7 +1221,7 @@
 (defun te-create-terminfo ()
   "Create and compile a terminfo entry for the virtual terminal. This is kept 
 in the /tmp directory"
-  (if (and (string-match te-terminfo-systems system-configuration)
+  (if (and system-uses-terminfo
 	   (not (file-exists-p (concat  "/tmp/" 
 					(substring te-terminal-name-prefix 0 1)
 					"/" te-terminal-name))))