Fix clipboard paste for .ts files without sidecars
This commit is contained in:
parent
bdfae19796
commit
b44f5c3678
|
@ -82,6 +82,7 @@ switch $action {
|
||||||
set path [$item get path]
|
set path [$item get path]
|
||||||
set file [file tail $path]
|
set file [file tail $path]
|
||||||
set mode [$item get action]
|
set mode [$item get action]
|
||||||
|
set fileonly 0
|
||||||
|
|
||||||
puts "Pasting $file"
|
puts "Pasting $file"
|
||||||
|
|
||||||
|
@ -105,8 +106,13 @@ switch $action {
|
||||||
"$dir/[file tail $f]"}
|
"$dir/[file tail $f]"}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
} else {
|
||||||
|
set fileonly 1
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
|
set fileonly 1
|
||||||
|
}
|
||||||
|
if {$fileonly} {
|
||||||
if {$mode eq "cut"} {
|
if {$mode eq "cut"} {
|
||||||
catch {file rename $path \
|
catch {file rename $path \
|
||||||
"$dir/[file tail $path]"}
|
"$dir/[file tail $path]"}
|
||||||
|
|
Loading…
Reference in New Issue