Let-bind helm-ff-default-directory (#49)

* helm-ls-git.el (helm-ls-git-ls): Do it.
emacs-helm · Jun 29, 2018 · ed1ad16 · ed1ad16
1 parent ceeac5c
commit ed1ad16
Showing 1 changed file with 17 additions and 14 deletions.
diff --git a/helm-ls-git.el b/helm-ls-git.el
@@ -687,20 +687,23 @@ Do nothing when `helm-source-ls-git-buffers' is not member of
 ;;;###autoload
 (defun helm-ls-git-ls (&optional arg)
   (interactive "p")
-  (when (and arg (helm-ls-git-not-inside-git-repo))
-    (error "Not inside a Git repository"))
-  (unless (cl-loop for s in helm-ls-git-default-sources
-                   always (symbol-value s))
-    (setq helm-source-ls-git-status
-          (helm-ls-git-build-git-status-source)
-          helm-source-ls-git
-          (helm-ls-git-build-ls-git-source)
-          helm-source-ls-git-buffers
-          (helm-ls-git-build-buffers-source)))
-  (helm-set-local-variable 'helm-ls-git--current-branch (helm-ls-git--branch))
-  (helm :sources helm-ls-git-default-sources
-        :ff-transformer-show-only-basename nil
-        :buffer "*helm lsgit*"))
+  (let ((helm-ff-default-directory
+         (or helm-ff-default-directory
+             default-directory)))
+    (when (and arg (helm-ls-git-not-inside-git-repo))
+      (error "Not inside a Git repository"))
+    (unless (cl-loop for s in helm-ls-git-default-sources
+                     always (symbol-value s))
+      (setq helm-source-ls-git-status
+            (helm-ls-git-build-git-status-source)
+            helm-source-ls-git
+            (helm-ls-git-build-ls-git-source)
+            helm-source-ls-git-buffers
+            (helm-ls-git-build-buffers-source)))
+    (helm-set-local-variable 'helm-ls-git--current-branch (helm-ls-git--branch))
+    (helm :sources helm-ls-git-default-sources
+          :ff-transformer-show-only-basename nil
+          :buffer "*helm lsgit*")))
 
 
 (provide 'helm-ls-git)