diff options
| author | Paul Eggert | 2016-03-22 12:53:54 -0700 |
|---|---|---|
| committer | Paul Eggert | 2016-03-22 12:57:24 -0700 |
| commit | b08237185ec044c8afff0feb88a126512b33a6d8 (patch) | |
| tree | bba338084846f88e814d5569f5806057aef32575 /admin/gitmerge.el | |
| parent | 582962a3a184135047c5809b1172691a1c5f2586 (diff) | |
| download | emacs-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.el | 9 |
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\\|\ |
| 54 | Auto-commit" | 54 | Auto-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. |