diff options
| -rw-r--r-- | lisp/font-lock.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el index ee1fc1a515e..ba42412d8da 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el | |||
| @@ -2053,9 +2053,15 @@ This function could be MATCHER in a MATCH-ANCHORED `font-lock-keywords' item." | |||
| 2053 | ("\\<:\\sw+\\>" 0 font-lock-builtin-face) | 2053 | ("\\<:\\sw+\\>" 0 font-lock-builtin-face) |
| 2054 | ;; ELisp and CLisp `&' keywords as types. | 2054 | ;; ELisp and CLisp `&' keywords as types. |
| 2055 | ("\\&\\sw+\\>" . font-lock-type-face) | 2055 | ("\\&\\sw+\\>" . font-lock-type-face) |
| 2056 | ;; Make regexp grouping constructs bold, so they stand out. | 2056 | ;; Make regexp grouping constructs bold, so they stand out, but only in strings. |
| 2057 | ("\\([\\][\\]\\)\\([(|)]\\)\\(\\?:\\)?" | 2057 | ((lambda (bound) |
| 2058 | (1 font-lock-comment-face prepend) | 2058 | (if (re-search-forward "\\([\\][\\]\\)\\([(|)]\\)\\(\\?:\\)?" bound) |
| 2059 | (let ((face (get-text-property (1- (point)) 'face))) | ||
| 2060 | (if (listp face) | ||
| 2061 | (memq 'font-lock-string-face face) | ||
| 2062 | (eq 'font-lock-string-face face))))) | ||
| 2063 | (1 font-lock-comment-face prepend) ; Should we introduce a lowlight face for this? | ||
| 2064 | ; Ideally that would retain the color, dimmed 50%. | ||
| 2059 | (2 'bold prepend) | 2065 | (2 'bold prepend) |
| 2060 | (3 font-lock-type-face prepend t)) | 2066 | (3 font-lock-type-face prepend t)) |
| 2061 | ;; Underline innermost grouping, so that you can more easily see what belongs together. | 2067 | ;; Underline innermost grouping, so that you can more easily see what belongs together. |