Mercurial > hg > egg-tcls

comparison quotedb.tcl @ 668:a026f5eb9439

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
quotedb: Cleanup.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 23 Feb 2021 13:04:41 +0200
parents 88d0e2ba73ca
children fdd20366406e
comparison
equal deleted inserted replaced
667:88d0e2ba73ca 668:a026f5eb9439
391 } else { 391 } else {
392 set ulimit $qdb_showmax_pub 392 set ulimit $qdb_showmax_pub
393 } 393 }
394 394
395 ### Parse the given command 395 ### Parse the given command
396 qdb_log "${unick}/${uhand}/${uchan} searched ${utable}: ${utext}" 396 qdb_log "${unick}/${uhand}/${uchan} searched ${utable}: '${utext}'"
397 397
398 set fpatlist {}
398 set ftokens [::textutil::split::splitx $utext {\s+}] 399 set ftokens [::textutil::split::splitx $utext {\s+}]
399 set fpatlist {}
400 foreach ftoken $ftokens { 400 foreach ftoken $ftokens {
401 set fprefix [string range $ftoken 0 0] 401 set fprefix [string range $ftoken 0 0]
402 set fpattern [string range $ftoken 1 end] 402 set fpattern [string range $ftoken 1 end]
403 403
404 if {$fprefix == "-"} { 404 if {$fprefix == "-"} {