From 796a5f9284a7cfc1f185041752c67027c5dc0d9e Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Fri, 14 Dec 2018 18:47:52 +0900
Subject: [PATCH] Fix with-venv

---
 emacs.el | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

diff --git a/emacs.el b/emacs.el
index fb224e0..78f05d7 100644
--- a/emacs.el
+++ b/emacs.el
@@ -2056,6 +2056,7 @@ suitable environment was found."
   `(with-venv-dir
     ;; If set explicitly use it
     (or with-venv-venv-dir
+        ;; Check previously used directory
         (with-venv-check-exists with-venv-previously-used)
         (setq with-venv-previously-used (with-venv-find-venv-dir)))
     ,@body))
@@ -2067,18 +2068,12 @@ If none found return nil."
     (when dir
       (cd dir))
     (or
-     ;; Check used previously
-     (with-venv-check-exists
-      with-venv-previously-used)
      ;; Check pipenv
-     (with-venv-check-exists
-      (with-venv--find-venv-dir-pipenv))
+     (with-venv-check-exists (with-venv--find-venv-dir-pipenv))
      ;; Check poetry
-     (with-venv-check-exists
-      (with-venv--find-venv-dir-poetry))
+     (with-venv-check-exists (with-venv--find-venv-dir-poetry))
      ;; Search for .venv dir
-     (with-venv-check-exists
-      (with-venv--find-venv-dir-by-name)))))
+     (with-venv-check-exists (with-venv--find-venv-dir-by-name)))))
 
 (defun with-venv--find-venv-dir-pipenv ()
   "Try to find venv dir via pipenv."