                          (cl-return-from loop))
                         ("e" "Dired and open recursive edit"
                          (dired (straight--repos-dir local-repo))
-                         (recursive-edit))
+                         (straight--recursive-edit))
                         ("C-g" (concat "Stop immediately and do not process "
                                        "more repositories")
                          (keyboard-quit))))))

  (prog1 t
    (magit-status-setup-buffer directory)))

(defun straight-vc-git--popup-raw (prompt actions)
  "Same as `straight--popup-raw', but specialized for vc-git methods.
Two additional actions are inserted at the end of the list: \"e\"

     ,@actions
     ("e" "Dired and open recursive edit"
      (dired (or straight--default-directory default-directory))
      (straight--recursive-edit))
     ("g" "Magit and open recursive edit"
      (when (straight--magit-status
             (or straight--default-directory default-directory))
        (straight--recursive-edit)))))

(defun straight-vc-git--encode-url (repo host &optional protocol)
  "Generate a URL from a REPO depending on the value of HOST and PROTOCOL.
