aboutsummaryrefslogtreecommitdiffstats
path: root/admin/gitmerge.el
diff options
context:
space:
mode:
authorPaul Eggert2016-03-22 12:53:54 -0700
committerPaul Eggert2016-03-22 12:57:24 -0700
commitb08237185ec044c8afff0feb88a126512b33a6d8 (patch)
treebba338084846f88e814d5569f5806057aef32575 /admin/gitmerge.el
parent582962a3a184135047c5809b1172691a1c5f2586 (diff)
downloademacs-b08237185ec044c8afff0feb88a126512b33a6d8.tar.gz
emacs-b08237185ec044c8afff0feb88a126512b33a6d8.zip
Change do-not-merge pattern to "do not merge"
This should avoid the problem we recently had with automatically-generated merge messages, while still letting people specify commits not to merge. * admin/gitmerge.el (gitmerge-skip-regexp): Add "do not merge". (gitmerge-highlight-skip-regexp): Fold case when searching for gitmerge-skip-regexp.
Diffstat (limited to 'admin/gitmerge.el')
-rw-r--r--admin/gitmerge.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/admin/gitmerge.el b/admin/gitmerge.el
index ed876436356..a07f57a6008 100644
--- a/admin/gitmerge.el
+++ b/admin/gitmerge.el
@@ -50,7 +50,7 @@
50(defvar gitmerge-skip-regexp 50(defvar gitmerge-skip-regexp
51 ;; We used to include "sync" in there, but in my experience it only 51 ;; We used to include "sync" in there, but in my experience it only
52 ;; caused false positives. --Stef 52 ;; caused false positives. --Stef
53 "back[- ]?port\\|re-?generate\\|bump version\\|from trunk\\|\ 53 "back[- ]?port\\|do not merge\\|re-?generate\\|bump version\\|from trunk\\|\
54Auto-commit" 54Auto-commit"
55 "Regexp matching logs of revisions that might be skipped. 55 "Regexp matching logs of revisions that might be skipped.
56`gitmerge-missing' will ask you if it should skip any matches.") 56`gitmerge-missing' will ask you if it should skip any matches.")
@@ -171,9 +171,10 @@ Auto-commit"
171(defun gitmerge-highlight-skip-regexp () 171(defun gitmerge-highlight-skip-regexp ()
172 "Highlight strings that match `gitmerge-skip-regexp'." 172 "Highlight strings that match `gitmerge-skip-regexp'."
173 (save-excursion 173 (save-excursion
174 (while (re-search-forward gitmerge-skip-regexp nil t) 174 (let ((case-fold-search t))
175 (put-text-property (match-beginning 0) (match-end 0) 175 (while (re-search-forward gitmerge-skip-regexp nil t)
176 'face 'font-lock-warning-face)))) 176 (put-text-property (match-beginning 0) (match-end 0)
177 'face 'font-lock-warning-face)))))
177 178
178(defun gitmerge-missing (from) 179(defun gitmerge-missing (from)
179 "Return the list of revisions that need to be merged from FROM. 180 "Return the list of revisions that need to be merged from FROM.