Mercurial > hg > egg-tcls

changeset 429:1ada0cb9bdd9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
weather: Some stray weather_msg_do calls were left in, fix those.
author Matti Hamalainen <ccr@tnsp.org>
date Sun, 08 Jan 2017 04:56:54 +0200
parents 04021e2e26c3
children 8efbb045d44d
files weather.tcl
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/weather.tcl	Sun Jan 08 04:15:50 2017 +0200
+++ b/weather.tcl	Sun Jan 08 04:56:54 2017 +0200
@@ -54,14 +54,15 @@
 
 proc weather_usage {apublic anick achan amsg} {
   global weather_msg_usage_prefix_1 weather_msg_usage_prefix_2
+  global weather_preferredmsg
   set nline 0
   foreach aline [split $amsg "\n"] {
     if {[string range $aline 0 1] == ":"} {
-      weather_msg_do $apublic $anick $achan $aline
+      utl_msg_do $weather_preferredmsg $apublic $anick $achan $aline
     } elseif {$nline == 0} {
-      weather_msg_do $apublic $anick $achan "$weather_msg_usage_prefix_1$aline"
+      utl_msg_do $weather_preferredmsg $apublic $anick $achan "$weather_msg_usage_prefix_1$aline"
     } else {
-      weather_msg_do $apublic $anick $achan "$weather_msg_usage_prefix_2$aline"
+      utl_msg_do $weather_preferredmsg $apublic $anick $achan "$weather_msg_usage_prefix_2$aline"
     }
     incr nline
   }