Mercurial > hg > egg-tcls

diff calc.tcl @ 524:b45fc205f425

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
calc: Rename functions.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 07 Jul 2020 14:17:27 +0300
parents 825cac46b1cb
children a179d0a35d28
line wrap: on
line diff
--- a/calc.tcl	Tue Jul 07 12:04:12 2020 +0300
+++ b/calc.tcl	Tue Jul 07 14:17:27 2020 +0300
@@ -21,8 +21,8 @@
 set calc_message "Calc v0.4 by ccr/TNSP"
 
 putlog "$calc_message"
-bind pub - !laske calc_pubmsg
-bind msg - !laske calc_msg
+bind pub - !laske calc_cmd_pub
+bind msg - !laske calc_cmd_msg
 
 
 # ------------------------------------------------------------------------
@@ -46,7 +46,7 @@
 }
 
 # ------------------------------------------------------------------------
-proc calc_pubmsg {nick uhost hand chan args} {
+proc calc_cmd_pub {nick uhost hand chan args} {
   global calc_err_noargs
 
   if {$args == {} || $args == ""} {
@@ -60,7 +60,7 @@
 }
 
 # -------------------------------------------------------------------------
-proc calc_msg {nick uhost hand args} {
+proc calc_cmd_msg {nick uhost hand args} {
   global calc_err_noargs
 
   if {$args == {} || $args == ""} {