Function: majutsu-diff--raw-git-file-headers

majutsu-diff--raw-git-file-headers is a natively compiled function defined in majutsu-diff.el.

Signature

(majutsu-diff--raw-git-file-headers)

Documentation

Return raw Git file header blocks in the current narrowed buffer.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-diff.el
(defun majutsu-diff--raw-git-file-headers ()
  "Return raw Git file header blocks in the current narrowed buffer."
  (save-excursion
    (goto-char (point-min))
    (let (headers)
      (while (re-search-forward "^diff --git " nil t)
        (let ((beg (match-beginning 0)))
          (forward-line 1)
          (let ((end (or (save-excursion
                           (when (re-search-forward
                                  "^\\(?:diff --git \\|@@ \\)" nil t)
                             (match-beginning 0)))
                         (point-max))))
            (push (buffer-substring-no-properties beg end) headers)
            (goto-char end))))
      (nreverse headers))))