Add some feedback to the status command.

This commit is contained in:
Renaud Casenave-Péré 2011-06-29 16:10:52 +09:00
parent d49f03fba2
commit cbfee5dc22

View file

@ -112,6 +112,7 @@ form '('error (error-code . error-message))."
(defun empc-response-parse-status (closure msg)
"Parse the status response, arrange it into a plist and call CLOSURE on it."
(empc-echo-response msg)
(setplist 'empc-status-plist nil)
(dolist (cell (empc-response-parse-message msg))
(let ((attr (car cell)))