Replace `send-string' by `process-send-string'.

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 880e29bd3be38829d03e31f43595341d219e547e..7fd07ebccfbb54c53be633912cce51f17670767c 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -1646,7 +1646,7 @@ good, skip, fatal, or unknown."
                    ;; if we gave an empty password to the USER command earlier
                    ;; then we should send a null password now.
                    (if (string-match "Password: *$" ange-ftp-process-string)
-                       (send-string proc "\n"))))
+                       (process-send-string proc "\n"))))
              (while (and ange-ftp-process-busy
                          (string-match "\n" ange-ftp-process-string))
                (let ((line (substring ange-ftp-process-string
@@ -1741,18 +1741,18 @@ good, skip, fatal, or unknown."
     ;; Replace STR by the result of the comint processing.
     (setq str (buffer-substring comint-last-output-start (process-mark proc))))
   (cond ((string-match "login: *$" str)
-        (send-string proc
-                     (concat
-                      (let ((ange-ftp-default-user t))
-                        (ange-ftp-get-user ange-ftp-gateway-host))
-                      "\n")))
+        (process-send-string proc
+                              (concat
+                               (let ((ange-ftp-default-user t))
+                                 (ange-ftp-get-user ange-ftp-gateway-host))
+                               "\n")))
        ((string-match "Password: *$" str)
-        (send-string proc
-                     (concat
-                      (ange-ftp-get-passwd ange-ftp-gateway-host
-                                           (ange-ftp-get-user
-                                            ange-ftp-gateway-host))
-                      "\n")))
+        (process-send-string proc
+                              (concat
+                               (ange-ftp-get-passwd ange-ftp-gateway-host
+                                                    (ange-ftp-get-user
+                                                     ange-ftp-gateway-host))
+                               "\n")))
        ((string-match ange-ftp-gateway-fatal-msgs str)
         (delete-process proc)
         (setq ange-ftp-gwp-running nil))
@@ -1835,7 +1835,7 @@ been queued with no result.  CONT will still be called, however."
              (insert (substring cmd 0 (match-end 0)) " Turtle Power!\n")
            (insert cmd)))
        (move-marker comint-last-input-end (point))
-       (send-string proc cmd)
+       (process-send-string proc cmd)
        (set-marker (process-mark proc) (point))
        (if nowait
            nil

diff --git a/lisp/net/telnet.el b/lisp/net/telnet.el
index 67edf6b0d4626bae689b5187beeb30196d835bcf..94a7b325d0e0fc1571d43395e14e249f4023ed58 100644 (file)
--- a/lisp/net/telnet.el
+++ b/lisp/net/telnet.el
@@ -91,19 +91,19 @@ rejecting one login and prompting again for a username and password.")
 (defun telnet-interrupt-subjob ()
   "Interrupt the program running through telnet on the remote host."
   (interactive)
-  (send-string nil telnet-interrupt-string))
+  (process-send-string nil telnet-interrupt-string))
 
 (defun telnet-c-z ()
   (interactive)
-  (send-string nil "\C-z"))
+  (process-send-string nil "\C-z"))
 
 (defun send-process-next-char ()
   (interactive)
-  (send-string nil
-              (char-to-string
-               (let ((inhibit-quit t))
-                 (prog1 (read-char)
-                   (setq quit-flag nil))))))
+  (process-send-string nil
+                       (char-to-string
+                        (let ((inhibit-quit t))
+                          (prog1 (read-char)
+                            (setq quit-flag nil))))))
 
 ; initialization on first load.
 (if telnet-mode-map
@@ -141,8 +141,8 @@ rejecting one login and prompting again for a username and password.")
            ((string-match "passw" string)
             (telnet-filter proc string)
             (setq telnet-count 0)
-            (send-string proc (concat (comint-read-noecho "Password: " t)
-                                      telnet-new-line))
+            (process-send-string proc (concat (comint-read-noecho "Password: " t)
+                                               telnet-new-line))
             (clear-this-command-keys))
            (t (telnet-check-software-type-initialize string)
               (telnet-filter proc string)
@@ -231,9 +231,9 @@ Normally input is edited in Emacs and sent a line at a time."
       ;; Don't send the `open' cmd till telnet is ready for it.
       (accept-process-output process)
       (erase-buffer)
-      (send-string process (concat "open " host
-                                  (if port " " "") (or port "")
-                                  "\n"))
+      (process-send-string process (concat "open " host
+                                           (if port " " "") (or port "")
+                                           "\n"))
       (telnet-mode)
       (setq comint-input-sender 'telnet-simple-send)
       (setq telnet-count telnet-initial-count))))

diff --git a/lisp/terminal.el b/lisp/terminal.el
index d33ba914cd3524fa6fd849dc405dee32cd364448..b84b1b6ed00fab75d3c5d316c3ba7ed4b8d54a43 100644 (file)
--- a/lisp/terminal.el
+++ b/lisp/terminal.el
@@ -489,7 +489,7 @@ lets you type a terminal emulator command."
             (progn
               (and terminal-more-processing (null (cdr te-pending-output))
                    (te-set-more-count nil))
-              (send-string te-process (make-string 1 last-input-char))
+              (process-send-string te-process (make-string 1 last-input-char))
               (te-process-output t))
           (message "Function key `%s' ignored"
                    (single-key-description last-input-char))))))