Add font-lock-regexp-grouping-{backslash, construct}

... again, from GNU Emacs.  I hope I got the font properties right.

2014-01-27  Michael Sperber  <[email protected]>

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

-- 
Regards,
Mike

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -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)

_______________________________________________
XEmacs-Patches mailing list
[email protected]
http://lists.xemacs.org/mailman/listinfo/xemacs-patches