Function: majutsu-restore--default-args

majutsu-restore--default-args is a natively compiled function defined in majutsu-restore.el.

Signature

(majutsu-restore--default-args)

Documentation

Return default args from diff buffer context.

Diff =--revisions= / =-r= become Restore =--changes-in=; other range args are passed through unchanged.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-restore.el
;;; Restore

(defun majutsu-restore--default-args ()
  "Return default args from diff buffer context.
Diff =--revisions= / =-r= become Restore =--changes-in=; other range args
are passed through unchanged."
  (when (derived-mode-p 'majutsu-diff-mode)
    (if (and (equal (car majutsu-buffer-diff-range) "-r")
             (cadr majutsu-buffer-diff-range))
        (list (concat "--changes-in=" (cadr majutsu-buffer-diff-range)))
      (mapcar (lambda (arg)
                (if-let* ((rev (transient-arg-value "--revisions=" (list arg))))
                    (concat "--changes-in=" rev)
                  arg))
              majutsu-buffer-diff-range))))