Echo the error message, if any, in the minibuffer.
This commit is contained in:
parent
64afad8292
commit
36d917c633
1 changed files with 2 additions and 2 deletions
4
empc.el
4
empc.el
|
|
@ -267,7 +267,7 @@ songs order is kept into an avector `empc-current-playlist'."
|
||||||
Check the error code and process it using CLOSURES."
|
Check the error code and process it using CLOSURES."
|
||||||
(let ((data (empc-response-parse-message msg)))
|
(let ((data (empc-response-parse-message msg)))
|
||||||
(if (eq (car data) 'error)
|
(if (eq (car data) 'error)
|
||||||
(empc-echo-error (cdr data))
|
(empc-echo-notify (cdr data))
|
||||||
(empc-handle-closure-call closures data)))
|
(empc-handle-closure-call closures data)))
|
||||||
(empc-maybe-enter-idle-state))
|
(empc-maybe-enter-idle-state))
|
||||||
|
|
||||||
|
|
@ -277,7 +277,7 @@ Check the error code and process the different responses to the
|
||||||
commands send as command_list."
|
commands send as command_list."
|
||||||
(let ((data (empc-response-parse-message msg)))
|
(let ((data (empc-response-parse-message msg)))
|
||||||
(if (eq (car data) 'error)
|
(if (eq (car data) 'error)
|
||||||
(empc-echo-error (cdr data))
|
(empc-echo-notify (cddr data))
|
||||||
(dolist (closure closures)
|
(dolist (closure closures)
|
||||||
(empc-handle-closure-call closure (car data))
|
(empc-handle-closure-call closure (car data))
|
||||||
(setq data (cdr data)))))
|
(setq data (cdr data)))))
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue