Mercurial > emacs
view lisp/term/vt200.el @ 68005:3d987bde3a79
(key-sequence): Rework widget to read key binding
using `kbd' syntax. Use C-q to insert literal key, event, or code.
(widget-key-sequence-default-value): Default value for empty sequence.
(widget-key-sequence-map): New map for reading key binding. Bind C-q.
(widget-key-sequence-read-event): New command for C-q.
(widget-key-sequence-validate, widget-key-sequence-value-to-internal)
(widget-key-sequence-value-to-external): New functions.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Tue, 03 Jan 2006 23:31:51 +0000 |
parents | af1c58687bdd |
children | 532e0a9335a9 890cc78a5a24 |
line wrap: on
line source
;; -*- no-byte-compile: t -*- ;; For our purposes we can treat the vt200 and vt100 almost alike. ;; Most differences are handled by the termcap entry. (defun terminal-init-vt200 () "Terminal initialization function for vt200." (load "term/vt100" nil t) ;; Make F11 an escape key. (define-key function-key-map "\e[23~" [?\e])) ;;; arch-tag: 0f78f583-9f32-4237-b106-28bcfff21d89 ;;; vt200.el ends here