diff options
Diffstat (limited to 'admin')
| -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. |