From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 17 May 1996 21:16:00 +0000 (+0000)
Subject: (term-send-raw-string):  send-string -> process-send-string.
X-Git-Tag: emacs-19.34~616
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1f96acec5ef797ba92a93671b97a1760b3c56967;p=emacs.git

(term-send-raw-string):  send-string -> process-send-string.
(term-arguments):  Remove unused local `values'.
(term-handle-deferred-scroll):  Fix off-by-one bug.
---

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