Woops, not with kill-tag

This commit is contained in:
Tom Willemsen 2012-02-07 00:54:15 +01:00
parent c7c4a98436
commit 4c877f0c7b

View file

@ -54,7 +54,7 @@
(if (string? tag)
(begin
(if (member tag tags)
(system (string-append "herbstclient merge_tag " tag)))))
(run-command (string-append "herbstclient merge_tag " tag)))))
(reset-main-binding)))
(define (move-to-tag)