Commits

Michael Sperber committed dcf9067

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.

Comments (0)

Files changed (2)

+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.

lisp/font-lock.el

     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"))
   "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)