Function: majutsu-interactive--group-hunk-lines

majutsu-interactive--group-hunk-lines is a natively compiled function defined in majutsu-interactive.el.

Signature

(majutsu-interactive--group-hunk-lines LINES)

Documentation

Attach meta lines in LINES to the preceding hunk line.

LINES is the output of majutsu-interactive--hunk-lines. Return a list of (TEXT TYPE BOL EOL META) where META is the text of a
"\\ No newline at end of file" marker following the line, or nil.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-interactive.el
(defun majutsu-interactive--group-hunk-lines (lines)
  "Attach meta lines in LINES to the preceding hunk line.
LINES is the output of `majutsu-interactive--hunk-lines'.  Return a
list of (TEXT TYPE BOL EOL META) where META is the text of a
\"\\ No newline at end of file\" marker following the line, or nil."
  (let (grouped)
    (dolist (line lines)
      (if (eq (nth 1 line) 'meta)
          (when grouped
            (setf (nth 4 (car grouped)) (car line)))
        (push (append line (list nil)) grouped)))
    (nreverse grouped)))