summaryrefslogtreecommitdiff
path: root/lisp/term.el
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1996-05-17 21:16:00 +0000
committerKarl Heuer <kwzh@gnu.org>1996-05-17 21:16:00 +0000
commit0be34b2c96e57e1ae40d519c9dbd0d7e0ab11fb6 (patch)
tree80e4d1cb706875a792e2e3a73dcc891540b9865b /lisp/term.el
parent801dfc31c78fcf2784196054d4486cfd942791dc (diff)
downloademacs-0be34b2c96e57e1ae40d519c9dbd0d7e0ab11fb6.tar.gz
(term-send-raw-string): send-string -> process-send-string.
(term-arguments): Remove unused local `values'. (term-handle-deferred-scroll): Fix off-by-one bug.
Diffstat (limited to 'lisp/term.el')
-rw-r--r--lisp/term.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/term.el b/lisp/term.el
index 4209e8129f2..8845c60e489 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -642,7 +642,7 @@ Entry to this mode runs the hooks on term-mode-hook"
(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 @@ Argument 0 is the command name."
(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 @@ See `term-prompt-regexp'."
(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))))))