Mercurial > emacs
comparison lisp/term.el @ 24044:9a52ffb7bfb2
(term_send_home): Change the string to
be the same as the one emitted by xterm and consistent with the
ones emitted by prior and next.
(term_send_end): Likewise.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 11 Jan 1999 12:59:36 +0000 |
parents | fd4a0e88aed5 |
children | 10d20f341dee |
comparison
equal
deleted
inserted
replaced
24043:4307c8044e78 | 24044:9a52ffb7bfb2 |
---|---|
3 ;;; Copyright (C) 1988, 1990, 1992, 1994, 1995 Free Software Foundation, Inc. | 3 ;;; Copyright (C) 1988, 1990, 1992, 1994, 1995 Free Software Foundation, Inc. |
4 | 4 |
5 ;;; Author: Per Bothner <bothner@cygnus.com> | 5 ;;; Author: Per Bothner <bothner@cygnus.com> |
6 ;;; Based on comint mode written by: Olin Shivers <shivers@cs.cmu.edu> | 6 ;;; Based on comint mode written by: Olin Shivers <shivers@cs.cmu.edu> |
7 ;;; Keyword: processes | 7 ;;; Keyword: processes |
8 | |
9 ;; This file is part of GNU Emacs. | |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
24 ;; Boston, MA 02111-1307, USA. | |
8 | 25 |
9 ;;; Dir/Hostname tracking and ANSI colorization by | 26 ;;; Dir/Hostname tracking and ANSI colorization by |
10 ;;; Marco Melgazzi <marco@techie.com>. | 27 ;;; Marco Melgazzi <marco@techie.com>. |
11 | 28 |
12 ;;; To see what I've modified and where it came from search for '-mm' | 29 ;;; To see what I've modified and where it came from search for '-mm' |
1221 ;; For example: vi works with \eOA while elm wants \e[A ... | 1238 ;; For example: vi works with \eOA while elm wants \e[A ... |
1222 (defun term-send-up () (interactive) (term-send-raw-string "\eOA")) | 1239 (defun term-send-up () (interactive) (term-send-raw-string "\eOA")) |
1223 (defun term-send-down () (interactive) (term-send-raw-string "\eOB")) | 1240 (defun term-send-down () (interactive) (term-send-raw-string "\eOB")) |
1224 (defun term-send-right () (interactive) (term-send-raw-string "\eOC")) | 1241 (defun term-send-right () (interactive) (term-send-raw-string "\eOC")) |
1225 (defun term-send-left () (interactive) (term-send-raw-string "\eOD")) | 1242 (defun term-send-left () (interactive) (term-send-raw-string "\eOD")) |
1226 (defun term-send-home () (interactive) (term-send-raw-string "\e[H")) | 1243 (defun term-send-home () (interactive) (term-send-raw-string "\e[1~")) |
1227 (defun term-send-end () (interactive) (term-send-raw-string "\eOw")) | 1244 (defun term-send-end () (interactive) (term-send-raw-string "\e[4~")) |
1228 (defun term-send-prior () (interactive) (term-send-raw-string "\e[5~")) | 1245 (defun term-send-prior () (interactive) (term-send-raw-string "\e[5~")) |
1229 (defun term-send-next () (interactive) (term-send-raw-string "\e[6~")) | 1246 (defun term-send-next () (interactive) (term-send-raw-string "\e[6~")) |
1230 (defun term-send-del () (interactive) (term-send-raw-string "\C-?")) | 1247 (defun term-send-del () (interactive) (term-send-raw-string "\C-?")) |
1231 (defun term-send-backspace () (interactive) (term-send-raw-string "\C-H")) | 1248 (defun term-send-backspace () (interactive) (term-send-raw-string "\C-H")) |
1232 | 1249 |