mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(terminal-emulator): Test system-configuration

Browse Source 
to decide on terminfo vs termcap.
(te-terminfo-systems-regexp): Renamed from te-terminfo-systems.
This commit is contained in:
Richard M. Stallman 1994-12-30 20:48:30 +00:00
parent 398e98d1c2
commit de3c715dd1
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/terminal.el
View File

@ -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))))