Mercurial > emacs

comparison lisp/term.el @ 24044:9a52ffb7bfb2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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