mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-11-25 04:18:08 +01:00
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:
parent
fd9a951249
commit
92a7f26fac
1 changed files with 2 additions and 7 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue