Function: majutsu-interactive--parse-hunk-header

majutsu-interactive--parse-hunk-header is a natively compiled function defined in majutsu-interactive.el.

Signature

(majutsu-interactive--parse-hunk-header HEADER)

Documentation

Parse unified diff HEADER into (OLD-START OLD-LEN NEW-START NEW-LEN SUFFIX).

Return nil when HEADER is not a standard @@ header.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-interactive.el
(defun majutsu-interactive--parse-hunk-header (header)
  "Parse unified diff HEADER into (OLD-START OLD-LEN NEW-START NEW-LEN SUFFIX).
Return nil when HEADER is not a standard @@ header."
  (let ((line (string-trim-right header)))
    (when (string-match
           "^@@ -\\([0-9]+\\)\\(?:,\\([0-9]+\\)\\)? \\+\\([0-9]+\\)\\(?:,\\([0-9]+\\)\\)? @@\\(.*\\)$"
           line)
      (list (string-to-number (match-string 1 line))
            (string-to-number (or (match-string 2 line) "1"))
            (string-to-number (match-string 3 line))
            (string-to-number (or (match-string 4 line) "1"))
            (or (match-string 5 line) "")))))