diff options
| author | Paul Eggert | 2019-01-15 14:08:41 -0800 |
|---|---|---|
| committer | Paul Eggert | 2019-01-15 14:09:11 -0800 |
| commit | 2a3bd6798e9670828f0402079fcc116d6d6b042d (patch) | |
| tree | faed45fcd905138435b9100758f5bcc44e60ec3a /lisp/obsolete | |
| parent | 9fc02ff5ea95c31a8d81eabb5634aa135fcd8786 (diff) | |
| download | emacs-2a3bd6798e9670828f0402079fcc116d6d6b042d.tar.gz emacs-2a3bd6798e9670828f0402079fcc116d6d6b042d.zip | |
Avoid using obsolete accept-process-output arg
* lisp/gnus/nnheader.el (nnheader-accept-process-output):
* lisp/net/dns.el (dns-query):
* lisp/net/imap.el (imap-wait-for-tag):
* lisp/net/network-stream.el (network-stream-get-response):
* lisp/net/pop3.el (pop3-accept-process-output):
* lisp/obsolete/starttls.el (starttls-negotiate-gnutls)
(starttls-open-stream-gnutls):
* lisp/server.el (server-eval-at):
* lisp/textmodes/ispell.el (ispell-accept-output):
Do not depend on the obsolete milliseconds argument of
accept-process-output.
Diffstat (limited to 'lisp/obsolete')
| -rw-r--r-- | lisp/obsolete/starttls.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/obsolete/starttls.el b/lisp/obsolete/starttls.el index b89e612e4a3..e0a09688f45 100644 --- a/lisp/obsolete/starttls.el +++ b/lisp/obsolete/starttls.el | |||
| @@ -217,7 +217,7 @@ handshake, or nil on failure." | |||
| 217 | starttls-success nil t)) | 217 | starttls-success nil t)) |
| 218 | (setq done-bad (re-search-forward | 218 | (setq done-bad (re-search-forward |
| 219 | starttls-failure nil t)))))) | 219 | starttls-failure nil t)))))) |
| 220 | (accept-process-output process 1 100) | 220 | (accept-process-output process 1.1) |
| 221 | (sit-for 0.1)) | 221 | (sit-for 0.1)) |
| 222 | (setq info (buffer-substring-no-properties old-max (point-max))) | 222 | (setq info (buffer-substring-no-properties old-max (point-max))) |
| 223 | (delete-region old-max (point-max)) | 223 | (delete-region old-max (point-max)) |
| @@ -251,7 +251,7 @@ handshake, or nil on failure." | |||
| 251 | (goto-char old-max) | 251 | (goto-char old-max) |
| 252 | (not (setq done (re-search-forward | 252 | (not (setq done (re-search-forward |
| 253 | starttls-connect nil t))))) | 253 | starttls-connect nil t))))) |
| 254 | (accept-process-output process 0 100) | 254 | (accept-process-output process 0.1) |
| 255 | (sit-for 0.1)) | 255 | (sit-for 0.1)) |
| 256 | (if done | 256 | (if done |
| 257 | (with-current-buffer buffer | 257 | (with-current-buffer buffer |