diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2006-06-20 18:12:23 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2006-06-20 18:12:23 +0000 |
| commit | 2b0193e1fb271c778a1fbb8588f72ac84d8b7dfa (patch) | |
| tree | 55320b403d521e0a41b87d33bc7235f483b55a21 /lisp/term.el | |
| parent | 809b6e9891919e0de881fe9e5c3f4af84b877ba3 (diff) | |
| download | emacs-2b0193e1fb271c778a1fbb8588f72ac84d8b7dfa.tar.gz | |
* term/xterm.el (terminal-init-xterm): Update key availability
info.
* term.el (term-delete-lines, term-insert-lines): Clarify
comments.
Diffstat (limited to 'lisp/term.el')
| -rw-r--r-- | lisp/term.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/term.el b/lisp/term.el index 8dafcfc894b..4124e2a2969 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -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 |