From 1b31c106f841082822479085819bd44483ea9b14 Mon Sep 17 00:00:00 2001
From: Phil Jackson <phil@shellarchive.co.uk>
Date: Thu, 6 May 2010 17:56:59 +0100
Subject: [PATCH] Added `magit-list-buffers'.

---
 magit.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/magit.el b/magit.el
index a8c75c84..8ea62582 100644
--- a/magit.el
+++ b/magit.el
@@ -4045,6 +4045,14 @@ With prefix force the removal even it it hasn't been merged."
     ((diff)
      (magit-interactive-resolve (cadr info)))))
 
+(defun magit-list-buffers ()
+  "Returns a list of magit buffers."
+  (remove-if-not (lambda (b)
+                   (save-excursion
+                     (set-buffer b)
+                     (eq major-mode 'magit-mode)))
+                 (buffer-list)))
+
 (provide 'magit)
 
 ;;; magit.el ends here