From 69791a3cd492c29669ef2fa37613fabae3f499cc Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 11 Jan 1999 12:59:36 +0000 Subject: [PATCH] (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. --- lisp/term.el | 21 +++++++++++++++++++-- 1 file changed, 19 insertions(+), 2 deletions(-) diff --git a/lisp/term.el b/lisp/term.el index f9cf0a63744..ac6201c8b33 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -6,6 +6,23 @@ ;;; Based on comint mode written by: Olin Shivers ;;; 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 . @@ -1223,8 +1240,8 @@ without any interpretation." (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-?")) -- 2.39.2