(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
(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))
(while (not done)
(if stars
(message "%s%s" prompt (make-string (length ans) ?*))
- (message prompt))
+ (message "%s" prompt))
(setq c (read-char))
(cond ((= c ?\C-g)
;; This function may get called from a process filter, where
(setq i temp))
(t ;; Not followed by LF or can't optimize:
(term-vertical-motion 0)
- (setq term-current-column 0))))
+ (setq term-current-column term-start-line-column))))
((eq char ?\n)
(if (not (and term-kill-echo-list
(term-check-kill-echo-list)))
(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))))))