Mercurial > hg > xemacs-beta
changeset 5790:dcf9067f26bb
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.
| author | Mike Sperber <sperber@deinprogramm.de> |
|---|---|
| date | Mon, 27 Jan 2014 17:52:33 +0100 |
| parents | 72c5d36ba3b6 |
| children | 9fae6227ede5 |
| files | lisp/ChangeLog lisp/font-lock.el |
| diffstat | 2 files changed, 18 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)