aboutsummaryrefslogtreecommitdiffstats
path: root/admin
diff options
context:
space:
mode:
authorStefan Monnier2015-12-25 23:37:36 -0500
committerStefan Monnier2015-12-25 23:37:36 -0500
commitde8837599112608feecea65a1e520866bc171569 (patch)
tree545d25c3904664523d2196c547839731ccc6e542 /admin
parent5917b504874faaa849f3976e0bfd75383745bd44 (diff)
downloademacs-de8837599112608feecea65a1e520866bc171569.tar.gz
emacs-de8837599112608feecea65a1e520866bc171569.zip
* admin/gitmerge.el: Tweaks that seemed necessary
* admin/gitmerge.el (gitmerge-skip-regexp): Remove "sync". (gitmerge-maybe-resume): Provide explicit empty commit message.
Diffstat (limited to 'admin')
-rw-r--r--admin/gitmerge.el12
1 files changed, 10 insertions, 2 deletions
diff --git a/admin/gitmerge.el b/admin/gitmerge.el
index 1e92c8c119f..69e4d288522 100644
--- a/admin/gitmerge.el
+++ b/admin/gitmerge.el
@@ -48,7 +48,9 @@
48(require 'smerge-mode) 48(require 'smerge-mode)
49 49
50(defvar gitmerge-skip-regexp 50(defvar gitmerge-skip-regexp
51 "back[- ]?port\\|merge\\|sync\\|re-?generate\\|bump version\\|from trunk\\|\ 51 ;; We used to include "sync" in there, but in my experience it only
52 ;; caused false positives. --Stef
53 "back[- ]?port\\|merge\\|re-?generate\\|bump version\\|from trunk\\|\
52Auto-commit" 54Auto-commit"
53 "Regexp matching logs of revisions that might be skipped. 55 "Regexp matching logs of revisions that might be skipped.
54`gitmerge-missing' will ask you if it should skip any matches.") 56`gitmerge-missing' will ask you if it should skip any matches.")
@@ -429,8 +431,14 @@ If so, add no longer conflicted files and commit."
429 (when mergehead 431 (when mergehead
430 (with-current-buffer (get-buffer-create gitmerge-output-buffer) 432 (with-current-buffer (get-buffer-create gitmerge-output-buffer)
431 (erase-buffer) 433 (erase-buffer)
434 ;; FIXME: We add "-m-" because the default commit message
435 ;; apparently tickles our commit hook:
436 ;; Line longer than 78 characters in commit message
437 ;; Line longer than 78 characters in commit message
438 ;; Line longer than 78 characters in commit message
439 ;; Commit aborted; please see the file CONTRIBUTE
432 (unless (zerop (call-process "git" nil t nil 440 (unless (zerop (call-process "git" nil t nil
433 "commit" "--no-edit")) 441 "commit" "--no-edit" "-m-"))
434 (error "Git error during merge - fix it manually")))) 442 (error "Git error during merge - fix it manually"))))
435 ;; Successfully resumed. 443 ;; Successfully resumed.
436 t)))) 444 t))))