* lisp/emacs-lisp/cl.el, lisp/emacs-lisp/cl-lib.el: Move cl-unload-function and
[emacs.git] / lisp / term / vt320.el
blob08ed9a8ffb98ede008b2e295f303fa3b408c3f83
1 (defun terminal-init-vt320 ()
2 "Terminal initialization function for vt320."
3 (tty-run-terminal-initialization (selected-frame) "vt100")
4 ;; Make F11 an escape key.
5 (define-key input-decode-map "\e[23~" [f11]) ;Probably redundant.
6 (define-key local-function-key-map [f11] [?\e]))
8 ;;; vt320.el ends here