diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2019-01-15 14:08:41 -0800 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2019-01-15 14:09:11 -0800 |
commit | 2a3bd6798e9670828f0402079fcc116d6d6b042d (patch) | |
tree | faed45fcd905138435b9100758f5bcc44e60ec3a /lisp/textmodes/ispell.el | |
parent | 9fc02ff5ea95c31a8d81eabb5634aa135fcd8786 (diff) | |
download | emacs-2a3bd6798e9670828f0402079fcc116d6d6b042d.tar.gz |
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/textmodes/ispell.el')
-rw-r--r-- | lisp/textmodes/ispell.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 22047598b26..418901dae48 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -1782,11 +1782,15 @@ You can set this variable in hooks in your init file -- eg: (defun ispell-accept-output (&optional timeout-secs timeout-msecs) - "Wait for output from Ispell process, or TIMEOUT-SECS and TIMEOUT-MSECS. + "Wait for output from Ispell process, or for TIMEOUT-SECS + TIMEOUT-MSECS. +\(The TIMEOUT-MSECS argument is obsolete and should be avoided.) If asynchronous subprocesses are not supported, call function `ispell-filter' and pass it the output of the last Ispell invocation." (if ispell-async-processp - (accept-process-output ispell-process timeout-secs timeout-msecs) + (let ((timeout (if timeout-msecs + (+ (or timeout-secs 0) (/ timeout-msecs 1000.0)) + timeout-secs))) + (accept-process-output ispell-process timeout)) (if (null ispell-process) (error "No Ispell process to read output from!") (let ((buf ispell-output-buffer) |