Group :: Shells
RPM: tcl-readline
Main Changelog Spec Patches Sources Download Gear Bugs and FR Repocop
Patch: tclreadline-2.1.0-sf-completer.patch
Download
Download
*** tclreadlineCompleter.tcl.orig Mon Jul 15 01:59:12 2002
--- tclreadlineCompleter.tcl Mon Jul 15 02:02:21 2002
***************
*** 625,631 ****
}
}
}
! if {![catch [list set type [image type ${cmd}]]]} {
switch -- ${type} {
photo {
set result [PhotoObj ${text} ${start} ${end} ${line} ${pos}]
--- 625,631 ----
}
}
}
! if {![catch {image type ${cmd}} type]} {
switch -- ${type} {
photo {
set result [PhotoObj ${text} ${start} ${end} ${line} ${pos}]
***************
*** 1460,1466 ****
# this can raise an error, if alias is
# no valid command.
#
! if {[catch [list set alias [namespace origin $alias]]]} {
return ""
}
--- 1460,1466 ----
# this can raise an error, if alias is
# no valid command.
#
! if {[catch {set alias [namespace origin $alias]}]} {
return ""
}