diff options
| author | David Engster | 2015-11-14 17:53:10 +0100 |
|---|---|---|
| committer | David Engster | 2015-11-14 17:54:36 +0100 |
| commit | 2ac79ae901422384e8d093e079862e57c72ef2dc (patch) | |
| tree | 67fde88b006c25d66425663a0f1ed05839bd0a04 | |
| parent | 5f7a2a90536557e3dcb3bb64d4bbbd49ea7b3fee (diff) | |
| download | emacs-2ac79ae901422384e8d093e079862e57c72ef2dc.tar.gz emacs-2ac79ae901422384e8d093e079862e57c72ef2dc.zip | |
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.
| -rw-r--r-- | admin/gitmerge.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/admin/gitmerge.el b/admin/gitmerge.el index c8cf2dcc565..4197ac37195 100644 --- a/admin/gitmerge.el +++ b/admin/gitmerge.el | |||
| @@ -65,7 +65,7 @@ Auto-commit" | |||
| 65 | '((t (:strike-through t))) | 65 | '((t (:strike-through t))) |
| 66 | "Face for skipped commits.") | 66 | "Face for skipped commits.") |
| 67 | 67 | ||
| 68 | (defconst gitmerge-default-branch "origin/emacs-24" | 68 | (defconst gitmerge-default-branch "origin/emacs-25" |
| 69 | "Default for branch that should be merged.") | 69 | "Default for branch that should be merged.") |
| 70 | 70 | ||
| 71 | (defconst gitmerge-buffer "*gitmerge*" | 71 | (defconst gitmerge-buffer "*gitmerge*" |
| @@ -183,8 +183,8 @@ if and why this commit should be skipped." | |||
| 183 | ;; Go through the log and remember all commits that match | 183 | ;; Go through the log and remember all commits that match |
| 184 | ;; `gitmerge-skip-regexp' or are marked by --cherry-mark. | 184 | ;; `gitmerge-skip-regexp' or are marked by --cherry-mark. |
| 185 | (with-temp-buffer | 185 | (with-temp-buffer |
| 186 | (call-process "git" nil t nil "log" "--cherry-mark" from | 186 | (call-process "git" nil t nil "log" "--cherry-mark" |
| 187 | (concat "^" (car (vc-git-branches)))) | 187 | (concat from "..." (car (vc-git-branches)))) |
| 188 | (goto-char (point-max)) | 188 | (goto-char (point-max)) |
| 189 | (while (re-search-backward "^commit \\(.+\\) \\([0-9a-f]+\\).*" nil t) | 189 | (while (re-search-backward "^commit \\(.+\\) \\([0-9a-f]+\\).*" nil t) |
| 190 | (let ((cherrymark (match-string 1)) | 190 | (let ((cherrymark (match-string 1)) |