svk/projman
svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
svkalinin 2022-07-22 16:00:59 +03:00
parent 9984ec23d1
commit 5bb2ca218c
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/editor.tcl
View File

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