Mercurial > emacs

comparison lisp/emulation/edt.el @ 18022:85119f319971

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(edt-emulation-on): Handle absence of TERM envvar.
author Richard M. Stallman <rms@gnu.org>
date Thu, 29 May 1997 06:57:11 +0000
parents 2dd1c9442974
children 158d4f0bc094
comparison
equal deleted inserted replaced
18021:6f4f7470572b 18022:85119f319971
1483 "Turn on EDT Emulation." 1483 "Turn on EDT Emulation."
1484 (interactive) 1484 (interactive)
1485 ;; If using MS-DOS or Windows, need to load edt-pc.el 1485 ;; If using MS-DOS or Windows, need to load edt-pc.el
1486 (if (memq system-type '(ms-dos windows-nt)) 1486 (if (memq system-type '(ms-dos windows-nt))
1487 (setq edt-term "pc") 1487 (setq edt-term "pc")
1488 (setq edt-term (getenv "TERM"))) 1488 (setq edt-term (or (getenv "TERM") "")))
1489 ;; All DEC VT series terminals are supported by loading edt-vt100.el 1489 ;; All DEC VT series terminals are supported by loading edt-vt100.el
1490 (if (string-equal "vt" (substring edt-term 0 (min (length edt-term) 2))) 1490 (if (string-equal "vt" (substring edt-term 0 (min (length edt-term) 2)))
1491 (setq edt-term "vt100")) 1491 (setq edt-term "vt100"))
1492 ;; Load EDT terminal specific configuration file. 1492 ;; Load EDT terminal specific configuration file.
1493 (let ((term edt-term) 1493 (let ((term edt-term)