Mercurial > emacs

view lisp/term/vt320.el @ 87963:10a88d763b88

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New commands for cleaning up some blank problems like trailing blanks.
author Vinicius Jose Latorre <viniciusjl@ig.com.br>
date Fri, 25 Jan 2008 14:09:57 +0000
parents 528714e93230
children 4bc33ffdda1a ef719132ddfa
line wrap: on
line source

;; -*- no-byte-compile: t -*-
(defun terminal-init-vt320 ()
  "Terminal initialization function for vt320."
  (tty-run-terminal-initialization (selected-frame) "vt100")
  ;; Make F11 an escape key.
  (define-key input-decode-map "\e[23~" [f11]) ;Probably redundant.
  (define-key local-function-key-map [f11] [?\e]))

;; arch-tag: f9f4c954-0b9e-45f9-b450-a320d32abd9c
;;; vt320.el ends here