]> code.delx.au - gnu-emacs/blobdiff - lisp/term/vt220.el
Fix coding tag.
[gnu-emacs] / lisp / term / vt220.el
index 7264b7d94a2bffd5ddd49f0c4618209d06d0f918..f9439e0eff7f600023b5f766ceaa32220d0a6eea 100644 (file)
@@ -3,9 +3,10 @@
 ;; Most differences are handled by the termcap entry.
 (defun terminal-init-vt220 ()
   "Terminal initialization function for vt220."
-  (terminal-init-vt100)
+  (tty-run-terminal-initialization (selected-frame) "vt100")
   ;; Make F11 an escape key.
-  (define-key local-function-key-map "\e[23~" [?\e]))
+  (define-key input-decode-map "\e[23~" [f11]) ;Probably redundant.
+  (define-key local-function-key-map [f11] [?\e]))
 
-;;; arch-tag: 98fc4867-a20d-46a1-a276-d7be31e49871
+;; arch-tag: 98fc4867-a20d-46a1-a276-d7be31e49871
 ;;; vt220.el ends here