From 453e148bf391708d26f6ede9f9d2ee90eb3285f7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Renaud=20Casenave-P=C3=A9r=C3=A9?= Date: Thu, 6 Oct 2011 17:36:58 +0900 Subject: [PATCH] Fix toggle commands --- empc.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/empc.el b/empc.el index 1d2216e..5a6d1ee 100644 --- a/empc.el +++ b/empc.el @@ -846,13 +846,13 @@ If the stream process is killed for whatever the reason, pause mpd if possible." (empc-with-updated-status (let ((,(if attr attr (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 - command))))))) + command)))))) ,(if body `(progn ,@body) - `(,(intern (concat "empc-send-" command)) ,(if attr attr - (intern command))))))))))) + `(,(intern (concat "empc-send-" command)) (% (1+ ,(if attr attr + (intern command))) 2)))))))))) ;; Querying MPD's status (empc-define-simple-command "clearerror")