165 |
(setq font-lock-defaults |
(setq font-lock-defaults |
166 |
'((scheme-font-lock-keywords |
'((scheme-font-lock-keywords |
167 |
scheme-font-lock-keywords-1 scheme-font-lock-keywords-2) |
scheme-font-lock-keywords-1 scheme-font-lock-keywords-2) |
168 |
nil t (("+-*/.<>=!?$%_&~^:" . "w")) beginning-of-defun |
nil t (("+-*/.<>=!?$%_&~^:#" . "w")) beginning-of-defun |
169 |
(font-lock-mark-block-function . mark-defun) |
(font-lock-mark-block-function . mark-defun) |
170 |
(font-lock-syntactic-face-function . lisp-font-lock-syntactic-face-function)))) |
(font-lock-syntactic-face-function . lisp-font-lock-syntactic-face-function)))) |
171 |
|
|
337 |
;; David Fox <fox@graphics.cs.nyu.edu> for SOS/STklos class specifiers. |
;; David Fox <fox@graphics.cs.nyu.edu> for SOS/STklos class specifiers. |
338 |
'("\\<<\\sw+>\\>" . font-lock-type-face) |
'("\\<<\\sw+>\\>" . font-lock-type-face) |
339 |
;; |
;; |
340 |
;; Scheme `:' keywords as builtins. |
;; Scheme `:' and `#:' keywords as builtins. |
341 |
'("\\<:\\sw+\\>" . font-lock-builtin-face) |
'("\\<#?:\\sw+\\>" . font-lock-builtin-face) |
342 |
))) |
))) |
343 |
"Gaudy expressions to highlight in Scheme modes.") |
"Gaudy expressions to highlight in Scheme modes.") |
344 |
|
|