[elpa] externals/satchel 8481917960 4/9: Fanny the default-directory

[ELPA Syncer]

branch: externals/satchel
commit 8481917960644979d230226314740bd910dfee65
Author: Theodor Thornhill <theo@thornhill.no>
Commit: Theodor Thornhill <theo@thornhill.no>

    Fanny the default-directory
---
 fannypack.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/fannypack.el b/fannypack.el
index ffd623651b..6a296bedb2 100644
--- a/fannypack.el
+++ b/fannypack.el
@@ -53,12 +53,13 @@
 (defun fannypack--name ()
   (cl-flet ((normalize (file-name)
               (string-replace "/" "---" file-name)))
-    (file-truename
-     (concat fannypack-directory
-             (concat
-              (normalize (project-root (project-current)))
-              "#"
-              (normalize (car (vc-git-branches))))))))
+    (let ((default-directory (project-root (project-current t))))
+      (file-truename
+       (concat fannypack-directory
+               (concat
+                (normalize default-directory)
+                "#"
+                (normalize (car (vc-git-branches)))))))))
 
 (defun fannypack--read ()
   (let ((filename (fannypack--name)))