branch: master commit 4a44c9e9077dfa96f9ab30fc002361e530e99f41 Author: Oleh Krehel <ohwoeo...@gmail.com> Commit: Oleh Krehel <ohwoeo...@gmail.com>
counsel.el (counsel--async-last-error-string): Add for ease of debugging Re #2160 --- counsel.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/counsel.el b/counsel.el index 272a607..9221b76 100644 --- a/counsel.el +++ b/counsel.el @@ -162,6 +162,9 @@ The time is measured in seconds.") This plist maps commands to a plist mapping their exit codes to descriptions.") +(defvar counsel--async-last-error-string nil + "When the process returned non-0, store the output here.") + (defun counsel-set-async-exit-code (cmd number str) "For CMD, associate NUMBER exit code with STR." (let ((plist (plist-get counsel--async-exit-code-plist cmd))) @@ -243,6 +246,8 @@ respectively." (if ivy--all-candidates (ivy--exhibit) (ivy--insert-minibuffer ""))) + (setq counsel--async-last-error-string + (with-current-buffer (process-buffer process) (buffer-string))) (setq ivy--all-candidates (let ((status (process-exit-status process)) (plist (plist-get counsel--async-exit-code-plist