km/magit-toggle-remote-skip: Give visual feedback

1 files changed, 4 insertions, 5 deletions

diff --git a/lisp/km-magit.el b/lisp/km-magit.el
index 3ec0289..146a223 100644
--- a/lisp/km-magit.el
+++ b/lisp/km-magit.el
@@ -164,11 +164,10 @@ namespace."
 (defun km/magit-toggle-remote-skip (remote)
   "Toggle REMOTE.skipFetchAll value."
   (interactive (list (magit-read-remote "Remote")))
-  (let ((keys (list "remote" remote "skipFetchAll")))
-    (apply #'magit-set
-           (and (not (apply #'magit-get-boolean keys))
-                "true")
-           keys)))
+  (let* ((keys (list "remote" remote "skipFetchAll"))
+         (skipped-p (apply #'magit-get-boolean keys)))
+    (apply #'magit-set (and (not skipped-p) "true") keys)
+    (message "%sabled %s" (if skipped-p "En" "Dis") remote)))
 
 (defun km/magit-branch-rename (old new &optional force)
   "Like `magit-branch-rename', but use old branch as initial prompt."