changeset 71404:fc1ff7769630

* term/xterm.el (terminal-init-xterm): Update key availability info. * term.el (term-delete-lines, term-insert-lines): Clarify comments.
author Dan Nicolaescu <dann@ics.uci.edu>
date Tue, 20 Jun 2006 18:12:23 +0000
parents 0759482f5cba
children 330971fc5282
files lisp/ChangeLog lisp/term.el lisp/term/xterm.el
diffstat 3 files changed, 16 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue Jun 20 18:08:40 2006 +0000
+++ b/lisp/ChangeLog	Tue Jun 20 18:12:23 2006 +0000
@@ -1,3 +1,11 @@
+2006-06-20  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* term/xterm.el (terminal-init-xterm): Update key availability
+	info.
+
+	* term.el (term-delete-lines, term-insert-lines): Clarify
+	comments.
+
 2006-06-20  Chong Yidong  <cyd@stupidchicken.com>
 
 	* msb.el (msb): Move `sit-for' hack here to handle both
--- a/lisp/term.el	Tue Jun 20 18:08:40 2006 +0000
+++ b/lisp/term.el	Tue Jun 20 18:12:23 2006 +0000
@@ -3768,6 +3768,9 @@
 	(save-start-line-column term-start-line-column)
 	(save-current-row (term-current-row)))
     ;; The number of inserted lines shouldn't exceed the scroll region end.
+    ;; The `term-scroll-end' line is part of the scrolling region, so
+    ;; we need to go one line past it in order to ensure correct
+    ;; scrolling.
     (when (> (+ save-current-row lines) (1+ term-scroll-end))
       (setq lines (- lines (- (+ save-current-row lines) (1+ term-scroll-end)))))
     (term-down lines)
@@ -3786,6 +3789,9 @@
 	(save-start-line-column term-start-line-column)
 	(save-current-row (term-current-row)))
     ;; Inserting lines should take into account the scroll region.
+    ;; The `term-scroll-end' line is part of the scrolling region, so
+    ;; we need to go one line past it in order to ensure correct
+    ;; scrolling.
     (if (< save-current-row term-scroll-start)
 	;; If point is before scroll start, 
 	(progn 
--- a/lisp/term/xterm.el	Tue Jun 20 18:08:40 2006 +0000
+++ b/lisp/term/xterm.el	Tue Jun 20 18:12:23 2006 +0000
@@ -228,8 +228,8 @@
       (define-key map "\e[4~" [select])
       (define-key map "\e[29~" [print])
       
-      ;; These keys will be available xterm starting probably from
-      ;; version 214.
+      ;; These keys are available in xterm starting from version 214
+      ;; if the modifyOtherKeys resource is set.
       (define-key map "\e[27;5;9~"  [(control ?\t)])
       (define-key map "\e[27;5;44~" [(control ?\,)])
       (define-key map "\e[27;5;46~" [(control ?\.)])