Function: majutsu-diff--revisions

majutsu-diff--revisions is a natively compiled function defined in majutsu-diff.el.

Signature

(majutsu-diff--revisions)

Documentation

Return (FROM-REV . TO-REV) for the current diff buffer.

FROM-REV is the old/left side, TO-REV is the new/right side.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-diff.el
(defun majutsu-diff--revisions ()
  "Return (FROM-REV . TO-REV) for the current diff buffer.
FROM-REV is the old/left side, TO-REV is the new/right side."
  (let* ((range majutsu-buffer-diff-range)
         (from (transient-arg-value "--from=" range))
         (to (transient-arg-value "--to=" range))
         (revisions (transient-arg-value "--revisions=" range)))
    (cond
     ;; -r REV: diff of a single revision's changes
     ((and range (equal (car range) "-r") (cadr range))
      (let ((rev (cadr range)))
        (cons (concat rev "-") rev)))
     ;; --revisions=REV: same as -r
     (revisions
      (cons (concat revisions "-") revisions))
     ;; --from=X --to=Y: explicit range
     ((or from to)
      (cons (or from "@") (or to "@")))
     ;; Default: working copy changes (parent to @)
     (t (cons "@-" "@")))))