We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 4925501 + 9093496 commit e503389Copy full SHA for e503389
lib/commit.tcl
@@ -207,8 +207,17 @@ You must stage at least 1 file before you can commit.
207
208
# -- A message is required.
209
#
210
- set msg [string trim [$ui_comm get 1.0 end]]
+ set msg [$ui_comm get 1.0 end]
211
+ # Strip trailing whitespace
212
regsub -all -line {[ \t\r]+$} $msg {} msg
213
+ # Strip comment lines
214
+ regsub -all {(^|\n)#[^\n]*} $msg {\1} msg
215
+ # Strip leading empty lines
216
+ regsub {^\n*} $msg {} msg
217
+ # Compress consecutive empty lines
218
+ regsub -all {\n{3,}} $msg "\n\n" msg
219
+ # Strip trailing empty line
220
+ regsub {\n\n$} $msg "\n" msg
221
if {$msg eq {}} {
222
error_popup [mc "Please supply a commit message.
223
0 commit comments