Fix with-venv

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."