Function: majutsu-diff--metadata-revision

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

Signature

(majutsu-diff--metadata-revision)

Documentation

Return the revision eligible for display metadata, or nil.

Metadata is only appropriate for a single-revision change diff: the project default (working-copy revision @) or an explicit -r /
--revisions revset. Explicit --from or --to ranges never qualify;
the metadata query later rejects revsets resolving to zero or many changes.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-diff.el
(defun majutsu-diff--metadata-revision ()
  "Return the revision eligible for display metadata, or nil.
Metadata is only appropriate for a single-revision change diff: the
project default (working-copy revision `@') or an explicit `-r' /
`--revisions' revset.  Explicit `--from' or `--to' ranges never qualify;
the metadata query later rejects revsets resolving to zero or many changes."
  (let ((from (majutsu-diff--range-option "--from"))
        (to (majutsu-diff--range-option "--to"))
        (revisions (majutsu-diff--range-option "--revisions" "-r")))
    (cond
     ((or (not (eq from 'missing)) (not (eq to 'missing))) nil)
     ((null majutsu-buffer-diff-range) "@")
     ((and (stringp revisions) (not (string-empty-p revisions))) revisions)
     (t nil))))