Adjust to Emacs 24 compatible deferred

This commit is contained in:
Wojciech Kozlowski 2017-09-09 22:50:00 +01:00
parent 84ad9992a8
commit 9083930750

View File

@ -288,11 +288,11 @@ Return a list (exit-code stdout stderr)."
"Execute PROGRAM with ARGS. "Execute PROGRAM with ARGS.
Return a list (exit-code stdout stderr)." Return a list (exit-code stdout stderr)."
(deferred:nextc (deferred:nextc
(apply #'deferred:process-w-stderr program args) (apply #'deferred:process-ec program args)
(lambda (output) (lambda (output)
(let ((exit-code (nth 0 output)) (let ((exit-code (nth 0 output))
(stdout (nth 1 output)) (stdout (nth 1 output))
(stderr (nth 2 output))) (stderr (nth 1 output)))
(setq racer--prev-state (setq racer--prev-state
(list (list
:program program :program program