aboutsummaryrefslogtreecommitdiffstats
path: root/admin
diff options
context:
space:
mode:
Diffstat (limited to 'admin')
-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.