(terminal-emulator): Test system-configuration

to decide on terminfo vs termcap.
(te-terminfo-systems-regexp): Renamed from te-terminfo-systems.

1 files changed, 6 insertions, 3 deletions

diff --git a/lisp/terminal.el b/lisp/terminal.el
index ebb74c3d038..d5a89b7e492 100644
--- a/lisp/terminal.el
+++ b/lisp/terminal.el
@@ -162,8 +162,11 @@ performance.")
 ;; Required to support terminfo systems
 (defconst te-terminal-name-prefix "emacs-virtual")
 (defvar te-terminal-name nil)
-(defvar te-terminfo-systems '(hpux usg-unix-v) 
-"List of system types that support terminfo instead of termcap")
+(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
@@ -1224,7 +1227,7 @@ of the terminal-emulator"
 (defun te-create-terminfo ()
   "Create and compile a terminfo entry for the virtual terminal. This is kept 
 in the /tmp directory"
-  (if (and (member system-type te-terminfo-systems)
+  (if (and (string-match te-terminfo-systems system-configuration)
            (not (file-exists-p (concat  "/tmp/" 
                                         (substring te-terminal-name-prefix 0 1)
                                         "/" te-terminal-name))))