Mercurial > emacs
changeset 10354:a4b616f7745c
(te-terminfo-systems-regexp): Variable deleted.
(te-create-terminfo): Use system-uses-terminfo.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 06 Jan 1995 22:08:23 +0000 |
| parents | 363bf89a3081 |
| children | e27c01c37cb9 |
| files | lisp/terminal.el |
| diffstat | 1 files changed, 1 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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))))