 PACKAGE is a string naming a package. Interactively, select
 PACKAGE from the known packages in the current Emacs session
 using `completing-read'."
-  (interactive (list (straight--select-package "Push package")))
+  (interactive (list (straight--select-package "Push package" nil 'installed)))
   (let ((recipe (gethash package straight--recipe-cache)))
     (straight-vc-push-to-remote recipe)))
 

using `completing-read'. With prefix argument FROM-UPSTREAM,
merge not just from primary remote but also from configured
upstream."
  (interactive (list (straight--select-package "Merge package")
                     current-prefix-arg))
  (let ((recipe (gethash package straight--recipe-cache)))
    (and (straight-vc-merge-from-remote recipe)

PACKAGE from the known packages in the current Emacs session
using `completing-read'. With prefix argument FROM-UPSTREAM, pull
not just from primary remote but also from configured upstream."
  (interactive (list (straight--select-package "Pull package" nil 'installed)
                     current-prefix-arg))
  (let ((recipe (gethash package straight--recipe-cache)))
    (and (straight-vc-pull-from-remote recipe)
