Mercurial > hg > egg-tcls

changeset 85:a8278d55c6db

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
quotedb: Add in !quote command.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 12 Sep 2011 01:41:00 +0300
parents fa1e95c2a0bc
children 4c2b6482c08c
files quotedb.tcl
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/quotedb.tcl	Sun Sep 11 19:39:40 2011 +0300
+++ b/quotedb.tcl	Mon Sep 12 01:41:00 2011 +0300
@@ -58,10 +58,10 @@
 
 
 # EXAMPLE!
-#bind pub - !quote spede_pub_cmd
-#bind msg - quote spede_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 - !quote quote_pub_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