Mercurial > emacs
view lisp/term/vt420.el @ 96708:ceb7b0d5c55f
(cl-do-pop, cl-mapcar-many): Declare for compiler.
(cl-hack-byte-compiler): Load cl-macs and run cl-hack-bytecomp-hook
directly. Provide cl before loading cl-macs.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Wed, 16 Jul 2008 02:49:35 +0000 |
parents | 528714e93230 |
children | 4bc33ffdda1a 712b0413cdc1 |
line wrap: on
line source
;; -*- no-byte-compile: t -*- (defun terminal-init-vt420 "Terminal initialization function for vt420." (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: df2f897c-3a12-4b3c-9259-df089f96c160 ;;; vt420.el ends here