Mercurial > emacs
view lisp/term/vt400.el @ 70093:da16308f67d1
(tcl-send-string, tcl-send-region): Use forward-line so as to get to BOL
even in the presence of fields.
(tcl-eval-region): Strip surrounding space to avoid multiple prompts in return.
(inferior-tcl): Tell tclsh to work in interactive mode.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Tue, 18 Apr 2006 21:16:50 +0000 |
parents | af1c58687bdd |
children | 532e0a9335a9 890cc78a5a24 |
line wrap: on
line source
;; -*- no-byte-compile: t -*- (defun terminal-init-vt400 () "Terminal initialization function for vt400." (load "term/vt100" nil t) ;; Make F11 an escape key. (define-key function-key-map "\e[23~" [?\e])) ;;; arch-tag: a70809c5-6b21-42cc-ba20-536683e5e7d5 ;;; vt400.el ends here