branch: elpa/git-commit
commit dfe3d03a143c8cd718516b3cf3327d15b61cd95b
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
git-commit-save-message: Report whether message was saved
---
lisp/git-commit.el | 19 +++++++++++--------
1 file changed, 11 insertions(+), 8 deletions(-)
diff --git a/lisp/git-commit.el b/lisp/git-commit.el
index 13bfef1..d96ba09 100644
--- a/lisp/git-commit.el
+++ b/lisp/git-commit.el
@@ -727,14 +727,17 @@ With a numeric prefix ARG, go forward ARG comments."
(defun git-commit-save-message ()
"Save current message to `log-edit-comment-ring'."
(interactive)
- (when-let ((message (git-commit-buffer-message)))
- (when-let ((index (ring-member log-edit-comment-ring message)))
- (ring-remove log-edit-comment-ring index))
- (ring-insert log-edit-comment-ring message)
- (when (and git-commit-use-local-message-ring
- (fboundp 'magit-repository-local-set))
- (magit-repository-local-set 'log-edit-comment-ring
- log-edit-comment-ring))))
+ (if-let ((message (git-commit-buffer-message)))
+ (progn
+ (when-let ((index (ring-member log-edit-comment-ring message)))
+ (ring-remove log-edit-comment-ring index))
+ (ring-insert log-edit-comment-ring message)
+ (when (and git-commit-use-local-message-ring
+ (fboundp 'magit-repository-local-set))
+ (magit-repository-local-set 'log-edit-comment-ring
+ log-edit-comment-ring))
+ (message "Message saved"))
+ (message "Only whitespace and/or comments; message not saved")))
(defun git-commit-prepare-message-ring ()
(make-local-variable 'log-edit-comment-ring-index)
