Function: vc-jj-push

vc-jj-push is a natively compiled function defined in vc-jj.el.

Signature

(vc-jj-push PROMPT)

Documentation

JJ-specific implementation of vc-push.

If PROMPT is non-nil, prompt for the command to run (default is "jj git push").

Source Code

;; Defined in /nix/store/j1ql1qsv99iszr5pqf5fk9yfcl5pq4nv-emacs-packages-deps/share/emacs/site-lisp/elpa/vc-jj-0.5/vc-jj.el
(defun vc-jj-push (prompt)
  "JJ-specific implementation of `vc-push'.
If PROMPT is non-nil, prompt for the command to run (default is \"jj git
push\")."
  (let* ((command (if prompt
                      (split-string-shell-command
                       (read-shell-command
                        (format "jj git push command: ")
                        (concat vc-jj-program " git push")
                        'vc-jj-push-history))
                    `(,vc-jj-program "git" "push")))
         (jj-program (car command))
         (args (cdr command))
         (root (vc-jj-root default-directory))
         (buffer (format "*vc-jj : %s*" (expand-file-name root))))
    (apply #'vc-do-async-command buffer root jj-program args)
    (vc-jj--set-up-process-buffer buffer root command)))