Mercurial > hg > egg-tcls

changeset 216:44593f1fb916

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rename some commands.
author Matti Hamalainen <ccr@tnsp.org>
date Sun, 28 Sep 2014 07:11:19 +0300
parents 1b58c4a28a79
children 67018e353536
files calc.tcl quotedb.tcl ruoka.tcl urllog.tcl
diffstat 4 files changed, 7 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/calc.tcl	Wed Sep 24 21:57:26 2014 +0300
+++ b/calc.tcl	Sun Sep 28 07:11:19 2014 +0300
@@ -22,7 +22,7 @@
 
 putlog "$calc_message"
 bind pub - !laske calc_pubmsg
-bind msg - laske calc_msg
+bind msg - !laske calc_msg
 
 
 # ------------------------------------------------------------------------
--- a/quotedb.tcl	Wed Sep 24 21:57:26 2014 +0300
+++ b/quotedb.tcl	Sun Sep 28 07:11:19 2014 +0300
@@ -59,23 +59,23 @@
 
 # EXAMPLE!
 bind pub - !quote quote_pub_cmd
-bind msg - quote quote_msg_cmd
+bind msg - !quote quote_msg_cmd
 proc quote_pub_cmd {unick uhost uhand uchan utext} { qdb_command "!quote" "quotedb" $unick $uhost $uhand $uchan $utext 1 }
 proc quote_msg_cmd {unick uhost uhand utext}       { qdb_command "quote" "quotedb" $unick $uhost $uhand "" $utext 0 }
 
 
 bind pub - !spede spede_pub_cmd
-bind msg - spede spede_msg_cmd
+bind msg - !spede spede_msg_cmd
 proc spede_pub_cmd {unick uhost uhand uchan utext} { qdb_command "!spede" "spededb" $unick $uhost $uhand $uchan $utext 1 }
 proc spede_msg_cmd {unick uhost uhand utext}       { qdb_command "spede" "spededb" $unick $uhost $uhand "" $utext 0 }
 
 bind pub - !mn mn_pub_cmd
-bind msg - mn mn_msg_cmd
+bind msg - !mn mn_msg_cmd
 proc mn_pub_cmd {unick uhost uhand uchan utext}    { qdb_command "!mn" "mndb" $unick $uhost $uhand $uchan $utext 1 }
 proc mn_msg_cmd {unick uhost uhand utext}          { qdb_command "mn" "mndb" $unick $uhost $uhand "" $utext 0 }
 
 bind pub - !tuksu tuksu_pub_cmd
-bind msg - tuksu tuksu_msg_cmd
+bind msg - !tuksu tuksu_msg_cmd
 proc tuksu_pub_cmd {unick uhost uhand uchan utext} { qdb_command "!tuksu" "tuksudb" $unick $uhost $uhand $uchan $utext 1 }
 proc tuksu_msg_cmd {unick uhost uhand utext}       { qdb_command "tuksu" "tuksudb" $unick $uhost $uhand "" $utext 0 }
 
--- a/ruoka.tcl	Wed Sep 24 21:57:26 2014 +0300
+++ b/ruoka.tcl	Sun Sep 28 07:11:19 2014 +0300
@@ -34,7 +34,7 @@
 
 ### Binding initializations
 bind pub - !ruoka ruoka_get_pub
-bind msg - ruoka ruoka_get_msg
+bind msg - !ruoka ruoka_get_msg
 bind pub - !ruokaset ruoka_set_pub
 
 ### Initialization messages
--- a/urllog.tcl	Wed Sep 24 21:57:26 2014 +0300
+++ b/urllog.tcl	Sun Sep 28 07:11:19 2014 +0300
@@ -169,7 +169,7 @@
 ### Binding initializations
 if {$urllog_search != 0} {
   bind pub - !urlfind urllog_pub_urlfind
-  bind msg - urlfind urllog_msg_urlfind
+  bind msg - !urlfind urllog_msg_urlfind
 }
 
 bind pubm - *.* urllog_checkmsg