Function: majutsu-diff--raw-file-metadata-consistent-p

majutsu-diff--raw-file-metadata-consistent-p is a natively compiled function defined in majutsu-diff.el.

Signature

(majutsu-diff--raw-file-metadata-consistent-p METADATA)

Documentation

Return non-nil when ordered METADATA agrees with the raw Git file headers.

The check covers file count, order, paths, and operation status.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-diff.el
(defun majutsu-diff--raw-file-metadata-consistent-p (metadata)
  "Return non-nil when ordered METADATA agrees with the raw Git file headers.
The check covers file count, order, paths, and operation status."
  (let ((headers (majutsu-diff--raw-git-file-headers)))
    (and metadata
         (= (length headers) (length metadata))
         (cl-every
          #'identity
          (cl-mapcar
           (lambda (entry header)
             (and (majutsu-diff--git-header-paths-match-p header entry)
                  (majutsu-diff--git-header-status-match-p
                   header (plist-get entry :status))))
           metadata headers)))))