diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-05-17 21:16:00 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-05-17 21:16:00 +0000 |
| commit | 0be34b2c96e57e1ae40d519c9dbd0d7e0ab11fb6 (patch) | |
| tree | 80e4d1cb706875a792e2e3a73dcc891540b9865b | |
| parent | 801dfc31c78fcf2784196054d4486cfd942791dc (diff) | |
| download | emacs-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.
| -rw-r--r-- | lisp/term.el | 8 |
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)))))) |