[nongnu] elpa/git-commit dfe3d03 1/2: git-commit-save-message: Report whether message was saved

[ELPA Syncer]

branch: elpa/git-commit
commit dfe3d03a143c8cd718516b3cf3327d15b61cd95b
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@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)