From b481b08204ff054fcea730b6b242e0e6bf64476a Mon Sep 17 00:00:00 2001
From: "Otsu.Hiroaki" <otsu.hiroaki@moneyforward.co.jp>
Date: Sat, 5 Nov 2016 19:52:00 +0900
Subject: [PATCH] prefer magit-status-internal to magit-status

---
 e2wm-vcs.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/e2wm-vcs.el b/e2wm-vcs.el
index cd01ed5..03473e2 100644
--- a/e2wm-vcs.el
+++ b/e2wm-vcs.el
@@ -122,7 +122,9 @@
   (e2wm:def-plugin-vcs-with-window
    'magit-get-top-dir
    (lambda (dir topdir)
-     (magit-status (file-name-as-directory dir)))
+     (loop for f in '(magit-status-internal magit-status)
+           if (fboundp f)
+           return (funcall f (file-name-as-directory dir))))
    (lambda () (e2wm:history-get-main-buffer))))
 
 (e2wm:plugin-register 'magit-status