# HG changeset patch
# User Mike Sperber <sperber@deinprogramm.de>
# Date 1390841553 -3600
# Node ID dcf9067f26bb2893d93f82299cb129664d61bd99
# Parent  72c5d36ba3b6f3cbe871e3b26e50ea793f1cd598
Add font-lock-regexp-grouping-{backslash, construct} from GNU Emacs.

2014-01-27  Michael Sperber  <mike@xemacs.org>

	* font-lock.el (font-lock-regexp-grouping-backslash,
	font-lock-regexp-grouping-construct): Add these, as in GNU Emacs.

diff -r 72c5d36ba3b6 -r dcf9067f26bb lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Jan 27 17:50:57 2014 +0100
+++ b/lisp/ChangeLog	Mon Jan 27 17:52:33 2014 +0100
@@ -1,3 +1,8 @@
+2014-01-27  Michael Sperber  <mike@xemacs.org>
+
+	* font-lock.el (font-lock-regexp-grouping-backslash,
+	font-lock-regexp-grouping-construct): Add these, as in GNU Emacs.
+
 2014-01-27  Michael Sperber  <mike@xemacs.org>
 
 	* lisp.el (check-parens): Add, from GNU Emacs.
diff -r 72c5d36ba3b6 -r dcf9067f26bb lisp/font-lock.el
--- a/lisp/font-lock.el	Mon Jan 27 17:50:57 2014 +0100
+++ b/lisp/font-lock.el	Mon Jan 27 17:52:33 2014 +0100
@@ -737,7 +737,9 @@
     font-lock-constant-face
     font-lock-reference-face
     font-lock-preprocessor-face
-    font-lock-warning-face))
+    font-lock-warning-face
+    font-lock-regexp-grouping-backslash
+    font-lock-regexp-grouping-construct))
 
 (defface font-lock-comment-face
   '((((class color) (background dark)) (:foreground "gray80"))
@@ -859,6 +861,16 @@
   "Font Lock mode face used to highlight warnings."
   :group 'font-lock-faces)
 
+(defface font-lock-regexp-grouping-backslash
+  '((t (:inherit font-lock-keyword-face :bold t)))
+  "Font Lock mode face for backslashes in Lisp regexp grouping constructs."
+  :group 'font-lock-faces)
+
+(defface font-lock-regexp-grouping-construct
+  '((t (:inherit font-lock-keyword-face :bold t)))
+  "Font Lock mode face used to highlight grouping constructs in Lisp regexps."
+  :group 'font-lock-faces)
+
 (defun font-lock-recompute-variables ()
   ;; Is this a Draconian thing to do?
   (mapc #'(lambda (buffer)