diff options
| author | Richard M. Stallman <[email protected]> | 1995-01-06 22:08:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1995-01-06 22:08:23 +0000 |
| commit | 2fe99fe682fc945ab4511eca090ba0c837e3aee0 (patch) | |
| tree | 3ba569a8ef7879e261b85d711a9ba390140146be /lisp/terminal.el | |
| parent | fa59ceb3f1108d10f9b00c25fc4e7f5b72df5574 (diff) | |
(te-terminfo-systems-regexp): Variable deleted.
(te-create-terminfo): Use system-uses-terminfo.
Diffstat (limited to 'lisp/terminal.el')
| -rw-r--r-- | lisp/terminal.el | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/lisp/terminal.el b/lisp/terminal.el index d5a89b7e49..618172a2b9 100644 --- a/lisp/terminal.el +++ b/lisp/terminal.el @@ -162,12 +162,6 @@ performance.") ;; 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 @@ 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 (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)))) |