Enter in prompt for commit message.
This commit is contained in:
@@ -98,7 +98,7 @@
|
||||
(def-cmd git-commit cmd-git-commit 'commit
|
||||
(λ (args info)
|
||||
(with-handlers ([exn:fail? (λ (e)
|
||||
(let ((msg (string-trim (git-prompt "Commit message: >"))))
|
||||
(let ((msg (string-trim (git-prompt "Commit message:\n>"))))
|
||||
(if (string=? msg "")
|
||||
(raise "A commit message is mandatory")
|
||||
(cons '-m (cons msg args)))))])
|
||||
|
||||
Reference in New Issue
Block a user