From ca32d97557ba4645641637b0684f65093ae1272f Mon Sep 17 00:00:00 2001
From: ijackson <ijackson>
Date: Mon, 10 Jun 2002 01:42:34 +0000
Subject: [PATCH] Do not report unused monitors

---
 ledmodule.tcl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ledmodule.tcl b/ledmodule.tcl
index 7c8158a..1d18fe3 100644
--- 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"] {}
 }
-- 
2.30.2