File tree Expand file tree Collapse file tree 2 files changed +21
-2
lines changed Expand file tree Collapse file tree 2 files changed +21
-2
lines changed Original file line number Diff line number Diff line change @@ -875,6 +875,7 @@ set default_config(merge.summary) false
875875set default_config(merge.verbosity) 2
876876set default_config(user.name) {}
877877set default_config(user.email) {}
878+ set default_config(core.commentchar) " #"
878879
879880set default_config(gui.encoding) [ encoding system]
880881set default_config(gui.matchtrackingbranch) false
@@ -3436,6 +3437,10 @@ proc trace_commit_type {varname args} {
34363437 merge {set txt [ mc " Merge Commit Message:" ] }
34373438 * {set txt [ mc " Commit Message:" ] }
34383439 }
3440+
3441+ set comment_char [ get_config core.commentchar]
3442+ set txt [ string cat $txt \
3443+ [mc " (Lines starting with '$comment_char ' will be ignored)" ] ]
34393444 $ui_coml conf -text $txt
34403445}
34413446trace add variable commit_type write trace_commit_type
Original file line number Diff line number Diff line change @@ -141,6 +141,20 @@ proc setup_commit_encoding {msg_wt {quiet 0}} {
141141 }
142142}
143143
144+ proc strip_msg {msg} {
145+ set cmd [concat [list | ] [_git_cmd stripspace] --strip-comments]
146+ _trace_exec $cmd
147+ set fd [open $cmd r+]
148+ fconfigure $fd -translation binary -encoding utf-8
149+
150+ puts -nonewline $fd $msg
151+ close $fd w
152+ set result [read $fd ]
153+ close $fd
154+
155+ return $result
156+ }
157+
144158proc commit_tree {} {
145159 global HEAD commit_type file_states ui_comm repo_config
146160 global pch_error
@@ -207,8 +221,8 @@ You must stage at least 1 file before you can commit.
207221
208222 # -- A message is required.
209223 #
210- set msg [string trim [$ui_comm get 1.0 end]]
211- regsub -all -line {[ \t\r]+$} $msg {} msg
224+ set msg [strip_msg [$ui_comm get 1.0 end]]
225+
212226 if {$msg eq {}} {
213227 error_popup [mc " Please supply a commit message.
214228
You can’t perform that action at this time.
0 commit comments