diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-12-30 20:48:30 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-12-30 20:48:30 +0000 |
| commit | e18186716cfbb9035df0b3b6254ca3fb091f690c (patch) | |
| tree | 7a75b387c4a6c3bf26621d6f8812ac78ba5c5524 /lisp/terminal.el | |
| parent | ccef57bd5f626d9216940ba4179d41c54bc1536a (diff) | |
| download | emacs-e18186716cfbb9035df0b3b6254ca3fb091f690c.tar.gz | |
(terminal-emulator): Test system-configuration
to decide on terminfo vs termcap.
(te-terminfo-systems-regexp): Renamed from te-terminfo-systems.
Diffstat (limited to 'lisp/terminal.el')
| -rw-r--r-- | lisp/terminal.el | 9 |
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)))) |