remove dbg stuff

This commit is contained in:
stefan schippers 2023-11-14 02:15:07 +01:00
parent d0ee3a34fa
commit 852f2bd25d
1 changed files with 5 additions and 5 deletions

View File

@ -2216,10 +2216,10 @@ proc touches {sel tag} {
set selend [expr {$sel_lineend * 1000000 + $sel_charend}] set selend [expr {$sel_lineend * 1000000 + $sel_charend}]
set tagstart [expr {$tag_linestart * 1000000 + $tag_charstart}] set tagstart [expr {$tag_linestart * 1000000 + $tag_charstart}]
set tagend [expr {$tag_lineend * 1000000 + $tag_charend}] set tagend [expr {$tag_lineend * 1000000 + $tag_charend}]
puts "selstart: $selstart" # puts "selstart: $selstart"
puts "selend: $selend" # puts "selend: $selend"
puts "tagstart: $tagstart" # puts "tagstart: $tagstart"
puts "tagend: $tagend" # puts "tagend: $tagend"
if { ($tagstart >= $selstart && $tagstart <= $selend) || if { ($tagstart >= $selstart && $tagstart <= $selend) ||
($tagend >= $selstart && $tagend <= $selend) || ($tagend >= $selstart && $tagend <= $selend) ||
($selstart >= $tagstart && $selstart <= $tagend) || ($selstart >= $tagstart && $selstart <= $tagend) ||
@ -2227,7 +2227,7 @@ proc touches {sel tag} {
} { } {
set res 1 set res 1
} }
puts "touch: returning $res" # puts "touch: returning $res"
return $res return $res
} }