... again, from GNU Emacs. I hope I got the font properties right. 2014-01-27 Michael Sperber <mike(a)xemacs.org&gt; * 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 XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches