Hi,

this not an issue, I am just curious: is there any plan to add this package to MELPA (or ELPA)?

Thank you :)

Following is error log when run git-undo on a selected region.

Debugger entered--Lisp error: (search-failed "^@@")
re-search-forward("^@@")
(progn (shell-command (format "git --no-pager diff -U%d HEAD -- %s" buffer-lines (file-name-nondirectory file-name)) (current-buffer)) (goto-char (point-min)) (re-search-forward "^@@") (forward-line) (let ((adjustment 0) (line 1) adjusted-start adjusted-end) (while (not (eobp)) (let* ((val (char-after))) (cond ((eql val 43) (let nil (setq adjustment ...))) ((eql val 45) (let nil (setq adjustment ...))) (t (let nil (setq line ...))))) (if (= (- start adjustment) line) (progn (setq adjusted-start (+ start adjustment)))) (if (= (- end adjustment) line) (progn (setq adjusted-end (+ end adjustment)) (goto-char (point-max)))) (forward-line)) (cons (1+ adjusted-start) adjusted-end)))
(unwind-protect (progn (shell-command (format "git --no-pager diff -U%d HEAD -- %s" buffer-lines (file-name-nondirectory file-name)) (current-buffer)) (goto-char (point-min)) (re-search-forward "^@@") (forward-line) (let ((adjustment 0) (line 1) adjusted-start adjusted-end) (while (not (eobp)) (let* ((val (char-after))) (cond ((eql val 43) (let nil ...)) ((eql val 45) (let nil ...)) (t (let nil ...)))) (if (= (- start adjustment) line) (progn (setq adjusted-start (+ start adjustment)))) (if (= (- end adjustment) line) (progn (setq adjusted-end (+ end adjustment)) (goto-char (point-max)))) (forward-line)) (cons (1+ adjusted-start) adjusted-end))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (shell-command (format "git --no-pager diff -U%d HEAD -- %s" buffer-lines (file-name-nondirectory file-name)) (current-buffer)) (goto-char (point-min)) (re-search-forward "^@@") (forward-line) (let ((adjustment 0) (line 1) adjusted-start adjusted-end) (while (not (eobp)) (let* ((val ...)) (cond (... ...) (... ...) (t ...))) (if (= (- start adjustment) line) (progn (setq adjusted-start ...))) (if (= (- end adjustment) line) (progn (setq adjusted-end ...) (goto-char ...))) (forward-line)) (cons (1+ adjusted-start) adjusted-end))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
(let ((temp-buffer (generate-new-buffer " temp" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (shell-command (format "git --no-pager diff -U%d HEAD -- %s" buffer-lines (file-name-nondirectory file-name)) (current-buffer)) (goto-char (point-min)) (re-search-forward "^@@") (forward-line) (let ((adjustment 0) (line 1) adjusted-start adjusted-end) (while (not (eobp)) (let* (...) (cond ... ... ...)) (if (= ... line) (progn ...)) (if (= ... line) (progn ... ...)) (forward-line)) (cons (1+ adjusted-start) adjusted-end))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
(let ((file-name (buffer-file-name)) (buffer-lines (line-number-at-pos (point-max)))) (let ((temp-buffer (generate-new-buffer " temp" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (shell-command (format "git --no-pager diff -U%d HEAD -- %s" buffer-lines (file-name-nondirectory file-name)) (current-buffer)) (goto-char (point-min)) (re-search-forward "^@@") (forward-line) (let ((adjustment 0) (line 1) adjusted-start adjusted-end) (while (not ...) (let* ... ...) (if ... ...) (if ... ...) (forward-line)) (cons (1+ adjusted-start) adjusted-end))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))
git-undo--compute-offsets(6 5)
(let* ((end-line (git-undo--compute-offsets (line-number-at-pos start) (1- (line-number-at-pos end)))) (start-line (if end-line (car-safe (prog1 end-line (setq end-line (cdr end-line)))) (signal 'wrong-number-of-arguments (list '(start-line . end-line) (length end-line)))))) (let ((temp-buffer (generate-new-buffer " temp" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (message "Retrieving Git history for lines %d to %d..." start-line end-line) (shell-command (format "git --no-pager log --no-expand-tabs -p -L%d,%d:%s" start-line end-line (file-name-nondirectory file-name)) (current-buffer)) (message "") (goto-char (point-min)) (let ((commit t) history) (while (and commit ... ...) (delete-region ... ...) (setq commit ...) (setq history ...)) (nreverse history))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))
(let ((file-name (buffer-file-name))) (let* ((end-line (git-undo--compute-offsets (line-number-at-pos start) (1- (line-number-at-pos end)))) (start-line (if end-line (car-safe (prog1 end-line (setq end-line ...))) (signal 'wrong-number-of-arguments (list '... (length end-line)))))) (let ((temp-buffer (generate-new-buffer " temp" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (message "Retrieving Git history for lines %d to %d..." start-line end-line) (shell-command (format "git --no-pager log --no-expand-tabs -p -L%d,%d:%s" start-line end-line ...) (current-buffer)) (message "") (goto-char (point-min)) (let (... history) (while ... ... ... ...) (nreverse history))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))))
git-undo--build-history(134 162)
(set (make-local-variable 'git-undo--history) (git-undo--build-history start end))
(if (eq last-command 'git-undo) (git-undo--replace-region) (set (make-local-variable 'git-undo--region-start) (copy-marker start nil)) (set (make-local-variable 'git-undo--region-end) (copy-marker end t)) (set (make-local-variable 'git-undo--history) (git-undo--build-history start end)) (git-undo--replace-region))
git-undo(134 162)
funcall-interactively(git-undo 134 162)
command-execute(git-undo record)
execute-extended-command(nil "git-undo" "git-undo")
funcall-interactively(execute-extended-command nil "git-undo" "git-undo")
command-execute(execute-extended-command)

thanks