Исправлено подключение требуемой процедуры подсветки

This commit is contained in:
svkalinin 2022-07-22 16:00:59 +03:00
parent 9984ec23d1
commit 5bb2ca218c

View File

@ -173,7 +173,7 @@ namespace eval Editor {
set shouldBeSpaces 0
for {set i 0} {$i < $len} {incr i} {
if {[string index $prevSpaces $i] == "\t"} {
incr shouldBeSpaces $tabSize
incr shouldBeSpaces $cfgVariables(tabSize)
} else {
incr shouldBeSpaces
}
@ -424,8 +424,9 @@ namespace eval Editor {
$txt configure -linemap 0
}
set fileType [string toupper [string trimleft [file extension $fileFullPath] "."]]
if {[info procs Highlight::$fileType] ne ""} {
# puts ">$fileType<"
# puts [info procs Highlight::GO]
if {[info procs ::Highlight::$fileType] ne ""} {
Highlight::$fileType $txt
} else {
Highlight::Default $txt