Update marked cands in mode-line when removing/deleting.

* helm-buffers.el (helm-buffers-persistent-kill): Do it.
* helm-files.el (helm-ff-quick-delete):           Do it.
* helm.el (helm--remove-marked-and-update-mode-line): New use it.

1 files changed, 7 insertions, 0 deletions

diff --git a/helm.el b/helm.el
index df777b56..029ac6cd 100644
--- a/helm.el
+++ b/helm.el
@@ -5164,6 +5164,13 @@ selection. When key WITH-WILDCARD is specified, expand it."
       (helm-log "Marked candidates = %S" candidates)
       candidates)))
 
+(defun helm--remove-marked-and-update-mode-line (elm)
+  (with-helm-buffer
+    (setq helm-marked-candidates
+          (delete (rassoc elm helm-marked-candidates)
+                  helm-marked-candidates))
+    (helm-display-mode-line (helm-get-current-source))))
+
 (defun helm-current-source-name= (name)
   (save-excursion
     (goto-char (helm-get-previous-header-pos))