mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-29 08:31:35 -08:00
gitmerge: Try to detect cherry-picks
* 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.
This commit is contained in:
parent
5f7a2a9053
commit
2ac79ae901
1 changed files with 3 additions and 3 deletions
|
|
@ -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))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue