/[emacs]/emacs/lisp/font-lock.el
ViewVC logotype

Diff of /emacs/lisp/font-lock.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.255 by pfeiffer, Mon May 16 20:35:39 2005 UTC revision 1.256 by pfeiffer, Thu May 19 02:15:09 2005 UTC
# Line 2053  This function could be MATCHER in a MATC Line 2053  This function could be MATCHER in a MATC
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.

Legend:
Removed from v.1.255  
changed lines
  Added in v.1.256

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26