diff options
author | Austin Clements <amdragon@MIT.EDU> | 2012-12-15 15:04:19 -0500 |
---|---|---|
committer | David Bremner <bremner@debian.org> | 2012-12-16 17:17:41 -0400 |
commit | 19e5b2d912b52145403c3f11b0c30c84d7f2b409 (patch) | |
tree | 10059d311b3d33c7904559a0b8360a89caa942eb /emacs/notmuch-lib.el | |
parent | b3dc31f78d7b489e30842aa19733261769afb84d (diff) |
emacs: Use unified error handling in search
This slightly changes the output of an existing test since we now
report non-zero exits with a pop-up buffer instead of at the end of
the search results.
Diffstat (limited to 'emacs/notmuch-lib.el')
-rw-r--r-- | emacs/notmuch-lib.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el index dd2c78ba..8e754edf 100644 --- a/emacs/notmuch-lib.el +++ b/emacs/notmuch-lib.el @@ -334,6 +334,19 @@ the user dismisses it." (insert "\n")))) (pop-to-buffer buf))) +(defun notmuch-check-async-exit-status (proc msg) + "If PROC exited abnormally, pop up an error buffer and signal an error. + +This is a wrapper around `notmuch-check-exit-status' for +asynchronous process sentinels. PROC and MSG must be the +arguments passed to the sentinel." + (let ((exit-status + (case (process-status proc) + ((exit) (process-exit-status proc)) + ((signal) msg)))) + (when exit-status + (notmuch-check-exit-status exit-status (process-command proc))))) + (defun notmuch-check-exit-status (exit-status command &optional output err-file) "If EXIT-STATUS is non-zero, pop up an error buffer and signal an error. |