Mercurial > hg > egg-tcls

changeset 531:137d61a0b5b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: Rename two functions.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 07 Jul 2020 14:22:47 +0300
parents a7e44605c930
children 15bbd5b2bd73
files urllog.tcl
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/urllog.tcl	Tue Jul 07 14:22:16 2020 +0300
+++ b/urllog.tcl	Tue Jul 07 14:22:47 2020 +0300
@@ -45,8 +45,8 @@
 package require http
 
 ### Binding initializations
-bind pub - !urlfind urllog_pub_urlfind
-bind msg - !urlfind urllog_msg_urlfind
+bind pub - !urlfind urllog_pub_cmd_urlfind
+bind msg - !urlfind urllog_msg_cmd_urlfind
 bind pubm - *.* urllog_check_line
 bind topc - *.* urllog_check_line
 
@@ -614,7 +614,7 @@
 
 #-------------------------------------------------------------------------
 ### Finding binded functions
-proc urllog_pub_urlfind {unick uhost uhand uchan utext} {
+proc urllog_pub_cmd_urlfind {unick uhost uhand uchan utext} {
   global urllog_search_channels
 
   if {[utl_match_delim_list $urllog_search_channels $uchan]} {
@@ -624,7 +624,7 @@
 }
 
 
-proc urllog_msg_urlfind {unick uhost uhand utext} {
+proc urllog_msg_cmd_urlfind {unick uhost uhand utext} {
   urllog_find $unick $uhand "" $utext 0
   return 0
 }