diff options
author | Richard M. Stallman <[email protected]> | 1999-01-11 12:59:36 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1999-01-11 12:59:36 +0000 |
commit | 69791a3cd492c29669ef2fa37613fabae3f499cc (patch) | |
tree | d1aabb81dded02ac82cdd0569bc3edf13558fa32 /lisp | |
parent | 5ff4df06ad4089254bb4d16b3f16bb65b2ab795c (diff) |
(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.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/term.el | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/lisp/term.el b/lisp/term.el index f9cf0a6374..ac6201c8b3 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -6,6 +6,23 @@ ;;; Based on comint mode written by: Olin Shivers <[email protected]> ;;; 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 <[email protected]>. @@ -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-?")) |