floss/empc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix toggle commands

Browse source
This commit is contained in:
Renaud Casenave-Péré 2011-10-06 17:36:58 +09:00
parent f4aee5ef91
commit 453e148bf3
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
empc.el
View file

@ -846,13 +846,13 @@ If the stream process is killed for whatever the reason, pause mpd if possible."
(empc-with-updated-status (empc-with-updated-status
(let ((,(if attr attr (let ((,(if attr attr
(intern command)) (intern command))
(empc-status-get empc-object (quote ,(intern (concat ":" (if state-name (empc-status-get empc-object ,(intern (concat ":" (if state-name
state-name state-name
command))))))) command))))))
,(if body ,(if body
`(progn ,@body) `(progn ,@body)
`(,(intern (concat "empc-send-" command)) ,(if attr attr `(,(intern (concat "empc-send-" command)) (% (1+ ,(if attr attr
(intern command))))))))))) (intern command))) 2))))))))))
;; Querying MPD's status ;; Querying MPD's status
(empc-define-simple-command "clearerror") (empc-define-simple-command "clearerror")