From: Max Kirillov <max@max630.net>
Date: Wed, 4 Mar 2015 03:58:17 +0000 (+0200)
Subject: gitk: Report errors in saving config file
X-Git-Tag: v2.4.0-rc0~18^2~6
X-Git-Url: https://git.lorimer.id.au/gitweb.git/diff_plain/1dd29606b69279605f42b715e491aaf8cd0fea60

gitk: Report errors in saving config file

Signed-off-by: Max Kirillov <max@max630.net>
Signed-off-by: Paul Mackerras <paulus@samba.org>
---

diff --git a/gitk b/gitk
index 3425066fa8..26a7db4c8c 100755
--- a/gitk
+++ b/gitk
@@ -2818,7 +2818,7 @@ proc savestuff {w} {
 
     if {$stuffsaved} return
     if {![winfo viewable .]} return
-    catch {
+    if {[catch {
 	if {[file exists $config_file_tmp]} {
 	    file delete -force $config_file_tmp
 	}
@@ -2884,6 +2884,8 @@ proc savestuff {w} {
 	puts $f "}"
 	close $f
 	file rename -force $config_file_tmp $config_file
+    } err]} {
+        puts "Error saving config: $err"
     }
     set stuffsaved 1
 }