Add support for prefix arg to vc-push and vc-pull

sellout

Sep 27, 2022, 5:10 AM

JLK5NMGGN7AMGI2LVBQLCWLWIGG2TUN4O4WU7ES4PUW275ZWGWHAC

Dependencies

• [2] AQ7J5S5E Add support for vc-pull
• [3] Z33EQSBW Add support for vc-push
• [4] V4ZIPDRU Update the README
• [5] MAGPFPZB init
• [6] OXA7DUHM Create README.md
• [7] VBTAFJFK Switch from DARCS to Pijul

Change contents

• edit in vc-pijul.el at line 419
  [3.8353]

  [3.0]
  +

  + (defun vc-pijul--handle-prompt (command args)

  + (let* ((root (vc-pijul-root default-directory))

  + (buffer (format "*vc-pijul : %s*" (expand-file-name root))))

  + (setq args (split-string

  + (read-shell-command

  + (format "Pijul %s command: " command)

  + (format "%s %s %s" vc-pijul-program-name command (concat args)))

  + " " t))

  + (setq pijul-program (car args)

  + command (cadr args)

  + args (cddr args))

  + (require 'vc-dispatcher)

  + (apply #'vc-do-async-command buffer root pijul-program command args)))
• replacement in vc-pijul.el at line 436
  [3.58]→[3.58:95](∅→∅)
  − (vc-pijul-do-command 'push 0 nil))
  [3.58]

  [2.1]
  + (if arg

  + (vc-pijul--handle-prompt "push" nil)

  + (vc-pijul-do-command 'push 0 nil)))
• replacement in vc-pijul.el at line 442
  [2.59]→[2.59:96](∅→∅)
  − (vc-pijul-do-command 'pull 0 nil))
  [2.59]

  [3.15402]
  + (if arg

  + (vc-pijul--handle-prompt "pull" nil)

  + (vc-pijul-do-command 'pull 0 nil)))
• edit in README.md at line 18
  [3.337]→[3.93:117](∅→∅),[3.93]→[3.93:117](∅→∅)
  −

  − TODO:

  − fix C-u argument