Mercurial > emacs

changeset 52677:a4cf4569e557

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(scheme-mode-variables): When setting `font-lock-defaults', also specify that "#" should be interpreted with `word' syntax. (scheme-font-lock-keywords-2): Also interpret "#:foo" as keyword.
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Tue, 30 Sep 2003 11:46:13 +0000
parents 0b5efec33565
children 06b72306eaae
files lisp/progmodes/scheme.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/scheme.el	Tue Sep 30 07:24:40 2003 +0000
+++ b/lisp/progmodes/scheme.el	Tue Sep 30 11:46:13 2003 +0000
@@ -165,7 +165,7 @@
   (setq font-lock-defaults
         '((scheme-font-lock-keywords
            scheme-font-lock-keywords-1 scheme-font-lock-keywords-2)
-          nil t (("+-*/.<>=!?$%_&~^:" . "w")) beginning-of-defun
+          nil t (("+-*/.<>=!?$%_&~^:#" . "w")) beginning-of-defun
           (font-lock-mark-block-function . mark-defun)
           (font-lock-syntactic-face-function . lisp-font-lock-syntactic-face-function))))
 
@@ -337,8 +337,8 @@
       ;; David Fox <fox@graphics.cs.nyu.edu> for SOS/STklos class specifiers.
       '("\\<<\\sw+>\\>" . font-lock-type-face)
       ;;
-      ;; Scheme `:' keywords as builtins.
-      '("\\<:\\sw+\\>" . font-lock-builtin-face)
+      ;; Scheme `:' and `#:' keywords as builtins.
+      '("\\<#?:\\sw+\\>" . font-lock-builtin-face)
       )))
   "Gaudy expressions to highlight in Scheme modes.")