git-gui: Fix applying a line when all following lines are deletions
[gitweb.git] / lib / choose_rev.tcl
index 5e833a53764ad495f5d7753eb52673e02b73289e..c8821c146386f850c0794df70f605cd9f18dcff3 100644 (file)
@@ -314,7 +314,7 @@ method commit_or_die {} {
                }
 
                set top [winfo toplevel $w]
-               set msg [append [mc "Invalid revision: %s" [get $this]] "\n\n$err"]
+               set msg [strcat [mc "Invalid revision: %s" [get $this]] "\n\n$err"]
                tk_messageBox \
                        -icon error \
                        -type ok \
@@ -451,7 +451,8 @@ method _sb_set {sb orient first last} {
                        focus $old_focus
                }
        }
-       $sb set $first $last
+
+       catch {$sb set $first $last}
 }
 
 method _show_tooltip {pos} {