Mercurial > emacs

comparison lisp/emulation/edt.el @ 17601:2dd1c9442974

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(edt-emulation-on): Load edt-pc.el under Windows.
author Richard M. Stallman <rms@gnu.org>
date Wed, 30 Apr 1997 02:13:02 +0000
parents 0db426a80aff
children 85119f319971
comparison
equal deleted inserted replaced
17600:0dc8180c2e7a 17601:2dd1c9442974
1480 1480
1481 ;;;###autoload 1481 ;;;###autoload
1482 (defun edt-emulation-on () 1482 (defun edt-emulation-on ()
1483 "Turn on EDT Emulation." 1483 "Turn on EDT Emulation."
1484 (interactive) 1484 (interactive)
1485 ;; If using MS-DOS, need to load edt-pc.el 1485 ;; If using MS-DOS or Windows, need to load edt-pc.el
1486 (if (eq system-type 'ms-dos) 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 (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"))