Mercurial > emacs
changeset 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 | 4307c8044e78 |
| children | 094765645c52 |
| files | lisp/term.el |
| diffstat | 1 files changed, 19 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term.el Mon Jan 11 12:36:15 1999 +0000 +++ b/lisp/term.el Mon Jan 11 12:59:36 1999 +0000 @@ -6,6 +6,23 @@ ;;; Based on comint mode written by: Olin Shivers <shivers@cs.cmu.edu> ;;; Keyword: processes +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + ;;; Dir/Hostname tracking and ANSI colorization by ;;; Marco Melgazzi <marco@techie.com>. @@ -1223,8 +1240,8 @@ (defun term-send-down () (interactive) (term-send-raw-string "\eOB")) (defun term-send-right () (interactive) (term-send-raw-string "\eOC")) (defun term-send-left () (interactive) (term-send-raw-string "\eOD")) -(defun term-send-home () (interactive) (term-send-raw-string "\e[H")) -(defun term-send-end () (interactive) (term-send-raw-string "\eOw")) +(defun term-send-home () (interactive) (term-send-raw-string "\e[1~")) +(defun term-send-end () (interactive) (term-send-raw-string "\e[4~")) (defun term-send-prior () (interactive) (term-send-raw-string "\e[5~")) (defun term-send-next () (interactive) (term-send-raw-string "\e[6~")) (defun term-send-del () (interactive) (term-send-raw-string "\C-?"))