1) Открыв vseen.tcl, найти строчку:
Quote
bind pub - $::gprefix(1)син "::vseen::pub 0"
Вставить после неё, например:
Quote
bind pub - $::gprefix(1)найти "::vseen::pub 0"
2) Также найти строчку:
Quote
bind pub o|m $::gprefix(1)$::gprefix(1)син "::vseen::pub 2"
Вставить после неё аналогично:
Quote
bind pub o|m $::gprefix(1)$::gprefix(1)найти "::vseen::pub 2"