Do not report unused monitors

diff --git a/ledmodule.tcl b/ledmodule.tcl
index 7c8158a..1d18fe3 100644 (file)
--- a/ledmodule.tcl
+++ b/ledmodule.tcl
@@ -551,7 +551,10 @@ def_ucmd who {
     }
     foreach d [list_objs deviceset] {
        upvar #0 deviceset/$d dd
-       lappend r "sending $dd(monname) to [dset_visibledest $d]"
+       set m $dd(monname)
+       upvar #0 monitor/$m mm
+       if {![info exists mm(group)]} continue
+       lappend r "sending $m to [dset_visibledest $d]"
     }
     ucmdr [join $r "\n"] {}
 }