emacs: don't start processes stopped

It causes this function to fail with:

    let: Wrong type argument: null, t

Support for this was removed from Emacs in April
2019 (5c5e309527e6b582e2c04b83e7af45f3144863ac) because it never
worked correctly (apparently).

This also shouldn't be necessary as sentinels will not be called
unless emacs is idle or waiting for input. Therefore, the
`process-put' calls immediately following the `make-process' call
should always complete before the sentinel is first called.
This commit is contained in:
Steven Allen 2020-01-03 09:04:00 -08:00 committed by David Bremner
parent fd9a951249
commit 92a7f26fac

View file

@ -222,16 +222,11 @@ corresponding key when the status button is pressed."
:buffer buffer :buffer buffer
:stderr buffer :stderr buffer
:command (list notmuch-crypto-gpg-program "--recv-keys" keyid) :command (list notmuch-crypto-gpg-program "--recv-keys" keyid)
:sentinel #'notmuch-crypto--async-key-sentinel :sentinel #'notmuch-crypto--async-key-sentinel)))
;; Create the process stopped so that
;; we have time to store the key id,
;; etc. on it.
:stop t)))
(process-put p :gpg-key-id keyid) (process-put p :gpg-key-id keyid)
(process-put p :notmuch-show-buffer (current-buffer)) (process-put p :notmuch-show-buffer (current-buffer))
(process-put p :notmuch-show-point (point)) (process-put p :notmuch-show-point (point))
(message "Getting the GPG key %s asynchronously..." keyid) (message "Getting the GPG key %s asynchronously..." keyid)))
(continue-process p)))
(let ((window (display-buffer buffer))) (let ((window (display-buffer buffer)))
(with-selected-window window (with-selected-window window