---
magit.el | 7 ++++---
1 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/magit.el b/magit.el
index aa50672..287a8df 100644
--- a/magit.el
+++ b/magit.el
@@ -3320,14 +3320,15 @@ Prefix arg means justify as well."
(magit-need-refresh))))
(defun magit-refresh-wazzup-buffer (head all)
+ (unless head (setq head "HEAD"))
(magit-create-buffer-sections
(magit-with-section 'wazzupbuf nil
(insert (format "Wazzup, %s\n\n" head))
(let* ((excluded (magit-file-lines ".git/info/wazzup-exclude"))
(all-branches (magit-list-interesting-refs))
(branches (if all all-branches
- (remove-if (lambda (b) (member (cdr b) excluded))
- all-branches)))
+ (remove-if (lambda (b) (member (cdr b) excluded))
+ all-branches)))
(reported (make-hash-table :test #'equal)))
(dolist (branch branches)
(let* ((name (car branch))
@@ -3349,7 +3350,7 @@ Prefix arg means justify as well."
n name
(if (member ref excluded)
" (normally ignored)"
- ""))
+ ""))
'magit-wash-log
"log"
(format "--max-count=%s" magit-log-cutoff-length)
--
1.7.0.3
To unsubscribe from this group, send email to magit+unsubscribegooglegroups.com
or reply to this email with the words "REMOVE ME" as the subject.
