M save.pl

M  save.pl~

1 files changed, 7 insertions, 4 deletions

diff --git a/save.pl~ b/save.pl~
index 8474511..2c93580 100644
--- a/save.pl~
+++ b/save.pl~
@@ -83,9 +83,12 @@ chain_atom_x(C, A0, A) :-
 commit(Msg) :-
 	process_create(path(git), ['commit', '-m', Msg],
 		       [process(PID)]),
-	process_wait(PID, S).
+	process_wait(PID, S),
+	commited(S).
 
-added(1) :-
+commited(1) :-
 	send(@display, report, error,
-	     'Files could not be added to index.
-Ensure Git is in PATH.').
+	     'Files could not be saved.').
+
+commited(0) :-
+	halt.