]> code.delx.au - gnu-emacs/commitdiff
gitmerge: Try to detect cherry-picks
authorDavid Engster <deng@randomsample.de>
Sat, 14 Nov 2015 16:53:10 +0000 (17:53 +0100)
committerDavid Engster <deng@randomsample.de>
Sat, 14 Nov 2015 16:54:36 +0000 (17:54 +0100)
* admin/gitmerge.el (gitmerge-default-branch): Change to
origin/emacs-25.
(gitmerge-missing): Use symmetric difference ('...') between
branch and master so that cherry-picks can be detected.

admin/gitmerge.el

index c8cf2dcc565bba770c5cd99359a03e6e8500072c..4197ac3719501f95717038540b4f0e385855a50a 100644 (file)
@@ -65,7 +65,7 @@ Auto-commit"
   '((t (:strike-through t)))
   "Face for skipped commits.")
 
-(defconst gitmerge-default-branch "origin/emacs-24"
+(defconst gitmerge-default-branch "origin/emacs-25"
   "Default for branch that should be merged.")
 
 (defconst gitmerge-buffer "*gitmerge*"
@@ -183,8 +183,8 @@ if and why this commit should be skipped."
     ;; Go through the log and remember all commits that match
     ;; `gitmerge-skip-regexp' or are marked by --cherry-mark.
     (with-temp-buffer
-      (call-process "git" nil t nil "log" "--cherry-mark" from
-                   (concat "^" (car (vc-git-branches))))
+      (call-process "git" nil t nil "log" "--cherry-mark"
+                   (concat from "..." (car (vc-git-branches))))
       (goto-char (point-max))
       (while (re-search-backward "^commit \\(.+\\) \\([0-9a-f]+\\).*" nil t)
        (let ((cherrymark (match-string 1))