Merge git://repo.or.cz/git-gui

[git/git.git] / git-gui / lib / commit.tcl

diff --git a/git-gui/lib/commit.tcl b/git-gui/lib/commit.tcl
index 2977315..3345149 100644 (file)
--- a/git-gui/lib/commit.tcl
+++ b/git-gui/lib/commit.tcl
@@ -168,7 +168,7 @@ File %s cannot be committed by this program.
                }
                }
        }
                }
                }
        }

-       if {!$files_ready && ![string match *merge $curType]} {
+       if {!$files_ready && ![string match *merge $curType] && ![is_enabled nocommit]} {

                info_popup [mc "No changes to commit.
 
 You must stage at least 1 file before you can commit.
                info_popup [mc "No changes to commit.
 
 You must stage at least 1 file before you can commit.


@@ -177,6 +177,8 @@ You must stage at least 1 file before you can commit.
                return
        }
 
                return
        }
 

+       if {[is_enabled nocommitmsg]} { do_quit 0 }
+

        # -- A message is required.
        #
        set msg [string trim [$ui_comm get 1.0 end]]
        # -- A message is required.
        #
        set msg [string trim [$ui_comm get 1.0 end]]


@@ -212,6 +214,8 @@ A good commit message has the following format:
        puts $msg_wt $msg
        close $msg_wt
 
        puts $msg_wt $msg
        close $msg_wt
 

+       if {[is_enabled nocommit]} { do_quit 0 }
+

        # -- Run the pre-commit hook.
        #
        set fd_ph [githook_read pre-commit]
        # -- Run the pre-commit hook.
        #
        set fd_ph [githook_read pre-commit]


@@ -410,7 +414,7 @@ A rescan will be automatically started now.
                set ::GITGUI_BCK_exists 0
        }
 
                set ::GITGUI_BCK_exists 0
        }
 

-       if {[is_enabled singlecommit]} do_quit
+       if {[is_enabled singlecommit]} { do_quit 0 }

 
        # -- Update in memory status
        #
 
        # -- Update in memory status
        #