diff options
author | Gustav Hållberg <gustav@gmail.com> | 2012-04-06 21:32:21 +0200 |
---|---|---|
committer | Gustav Hållberg <gustav@gmail.com> | 2012-04-07 21:50:41 +0200 |
commit | c6a5c1067d48118d67ccb2223fd0356916653fa4 (patch) | |
tree | c2633cedd0c823b7af0680a364dadc12d155b63b | |
parent | 2147794afc289c7176c8f83be371a8d56a84104e (diff) | |
download | stgit-c6a5c1067d48118d67ccb2223fd0356916653fa4.tar.gz |
stgit.el: Show human-friendly message when {expand,collaps}ing patches
Signed-off-by: Gustav Hållberg <gustav@gmail.com>
-rw-r--r-- | contrib/stgit.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/contrib/stgit.el b/contrib/stgit.el index 6d56f0c..aa67f5f 100644 --- a/contrib/stgit.el +++ b/contrib/stgit.el @@ -966,9 +966,14 @@ expand if COLLAPSE is not nil." (if collapse (set-difference stgit-expanded-patches patches-diff) (append stgit-expanded-patches patches-diff))) - (ewoc-map #'(lambda (patch) - (memq (stgit-patch->name patch) patches-diff)) - stgit-ewoc)) + (stgit-show-task-message (concat (if collapse "Collapsing" "Expanding") + " " + (if (= 1 (length patches-diff)) + "patch" + "patches")) + (ewoc-map #'(lambda (patch) + (memq (stgit-patch->name patch) patches-diff)) + stgit-ewoc))) (move-to-column (stgit-goal-column))) (defun stgit-collapse (&optional patches) |