Function: majutsu-annotate-next-chunk-same-commit

majutsu-annotate-next-chunk-same-commit is an interactive and natively compiled function defined in majutsu-annotate.el.

Signature

(majutsu-annotate-next-chunk-same-commit &optional PREVIOUS)

Documentation

Move to the next chunk from the same commit.

If PREVIOUS is non-nil, move to the previous chunk instead.

Key Bindings

majutsu-annotate-read-only-mode-map N

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-annotate.el
(defun majutsu-annotate-next-chunk-same-commit (&optional previous)
  "Move to the next chunk from the same commit.
If PREVIOUS is non-nil, move to the previous chunk instead."
  (interactive)
  (let* ((chunk (majutsu-annotate-current-chunk))
         (rev (majutsu-annotate-chunk-orig-rev chunk))
         (pos (point))
         found)
    (save-excursion
      (while (and (not found)
                  (not (= pos (if previous (point-min) (point-max)))))
        (setq pos (funcall
                   (if previous
                       #'previous-single-char-property-change
                     #'next-single-char-property-change)
                   pos 'majutsu-annotate-chunk))
        (when-let* ((ov (majutsu-annotate--overlay-at pos))
                    (other-chunk (overlay-get ov 'majutsu-annotate-chunk)))
          (when (equal (majutsu-annotate-chunk-orig-rev other-chunk) rev)
            (setq found (overlay-start ov))))))
    (if found
        (goto-char found)
      (user-error "No more chunks from same commit"))))