mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-01 20:06:00 +00:00
Code Issues Releases Activity

* term/xterm.el (terminal-init-xterm): Update key availability

Browse Source 
info.

* term.el (term-delete-lines, term-insert-lines): Clarify
comments.
This commit is contained in:
Dan Nicolaescu 2006-06-20 18:12:23 +00:00
parent 809b6e9891
commit 2b0193e1fb
3 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -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

6
lisp/term.el
View File

@ -3768,6 +3768,9 @@ Should only be called when point is at the start of a screen line."
(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 @@ Should only be called when point is at the start of a screen line."
(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

4
lisp/term/xterm.el
View File

@ -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 ?\.)])