mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-07 20:54:32 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Juanma Barranquero 2005-05-18 10:18:42 +00:00
parent 887195ac83
commit ff66030755
3 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lisp/net/ange-ftp.el
View File

@ -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

24
lisp/net/telnet.el
View File

@ -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))))

2
lisp/terminal.el
View File

@ -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))))))