2053 |
("\\<:\\sw+\\>" 0 font-lock-builtin-face) |
("\\<:\\sw+\\>" 0 font-lock-builtin-face) |
2054 |
;; ELisp and CLisp `&' keywords as types. |
;; ELisp and CLisp `&' keywords as types. |
2055 |
("\\&\\sw+\\>" . font-lock-type-face) |
("\\&\\sw+\\>" . font-lock-type-face) |
2056 |
;; Make regexp grouping constructs bold, so they stand out. |
;; Make regexp grouping constructs bold, so they stand out, but only in strings. |
2057 |
("\\([\\][\\]\\)\\([(|)]\\)\\(\\?:\\)?" |
((lambda (bound) |
2058 |
(1 font-lock-comment-face prepend) |
(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%. |
2065 |
(2 'bold prepend) |
(2 'bold prepend) |
2066 |
(3 font-lock-type-face prepend t)) |
(3 font-lock-type-face prepend t)) |
2067 |
;; Underline innermost grouping, so that you can more easily see what belongs together. |
;; Underline innermost grouping, so that you can more easily see what belongs together. |