[nongnu] elpa/git-commit 79c8c74b2c 2/6: magit-rev-fixup-target: New function

[ELPA Syncer]

branch: elpa/git-commit
commit 79c8c74b2c90a98e358f235995ab218c64a11e73
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    magit-rev-fixup-target: New function
---
 lisp/magit-git.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index fdd0e894d4..fe804cca0c 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -1437,6 +1437,14 @@ Git."
   (and-let* ((name (magit-rev-name rev "refs/heads/*")))
     (and (not (string-match-p "[~^]" name)) name)))
 
+(defun magit-rev-fixup-target (rev)
+  (let ((msg (magit-rev-format "%s" rev)))
+    (save-match-data
+      (and (string-match "\\`\\(fixup\\|squash\\)! \\(.+\\)" msg)
+           (magit-rev-format
+            "%h" (format "%s^{/^%s}" rev
+                         (magit--ext-regexp-quote (match-string 2 msg))))))))
+
 (defun magit-get-shortname (rev)
   (let* ((fn (apply-partially #'magit-rev-name rev))
          (name (or (funcall fn "refs/tags/*")