(facemenu-complete-face-list): Doc fix.

[gnu-emacs] / lisp / term.el

diff --git a/lisp/term.el b/lisp/term.el
index 186424c379d171b6d408a97907e3daad834f2f90..8845c60e48907282634f1e38579c8d23e20fe18f 100644 (file)
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -279,7 +279,7 @@ This is run before the process is cranked up.")
   "Called each time a process is exec'd by term-exec.
 This is called after the process is cranked up.  It is useful for things that
 must be done each time a process is executed in a term-mode buffer (e.g.,
-(process-kill-without-query)). In contrast, the term-mode-hook is only
+\(process-kill-without-query)). In contrast, the term-mode-hook is only
 executed once when the buffer is created.")
 
 (defvar term-mode-map nil)
@@ -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))
@@ -1587,7 +1587,7 @@ applications."
     (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
@@ -2189,7 +2189,7 @@ See `term-prompt-regexp'."
                                   (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)))
@@ -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))))))