Mercurial > emacs
changeset 15246:ba353653c03a
(term-send-raw-string): send-string -> process-send-string.
(term-arguments): Remove unused local `values'.
(term-handle-deferred-scroll): Fix off-by-one bug.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 17 May 1996 21:16:00 +0000 |
| parents | 4bfe3c580496 |
| children | 874a66251747 |
| files | lisp/term.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term.el Fri May 17 21:13:14 1996 +0000 +++ b/lisp/term.el Fri May 17 21:16:00 1996 +0000 @@ -642,7 +642,7 @@ (goto-char (process-mark proc)) (if (term-pager-enabled) (setq term-pager-count (term-current-row))) - (send-string proc chars)))) + (process-send-string proc chars)))) (defun term-send-raw () "Send the last character typed through the terminal-emulator @@ -1376,7 +1376,7 @@ (let ((argpart "[^ \n\t\"'`]+\\|\\(\"[^\"]*\"\\|'[^']*'\\|`[^`]*`\\)") (args ()) (pos 0) (count 0) - beg str value quotes) + beg str quotes) ;; Build a list of all the args until we have as many as we want. (while (and (or (null mth) (<= count mth)) (string-match argpart string pos)) @@ -2331,10 +2331,10 @@ (defun term-handle-deferred-scroll () (let ((count (- (term-current-row) term-height))) - (if (> count 0) + (if (>= count 0) (save-excursion (goto-char term-home-marker) - (term-vertical-motion count) + (term-vertical-motion (1+ count)) (set-marker term-home-marker (point)) (setq term-current-row (1- term-height))))))