diff options
| author | Richard M. Stallman | 1997-05-29 06:57:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-05-29 06:57:11 +0000 |
| commit | f1e13b4dd1e203e6902b78af0cebe03d9be5f53b (patch) | |
| tree | 3f76cb361eefd0339017c683b819799688999446 /lisp | |
| parent | d4cd7f7b0c4c596c6a27ab305cf91c185ac7c634 (diff) | |
| download | emacs-f1e13b4dd1e203e6902b78af0cebe03d9be5f53b.tar.gz emacs-f1e13b4dd1e203e6902b78af0cebe03d9be5f53b.zip | |
(edt-emulation-on): Handle absence of TERM envvar.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emulation/edt.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index 18deb138d96..f03a2b8cf11 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el | |||
| @@ -1485,7 +1485,7 @@ If FILE is nil, try to load a default file. The default file names are | |||
| 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")) |