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

3 files changed, 26 insertions, 26 deletions

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 880e29bd3be..7fd07ebccfb 100644
--- 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 67edf6b0d46..94a7b325d0e 100644
--- 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 d33ba914cd3..b84b1b6ed00 100644
--- 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))))))