(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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bb27d39a4cd8f62548e7b9435b8ea63529dc3a33..e7e56bcbfb8c2ec828b3cab73596a610bafb9b0f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2003-09-30  Thien-Thi Nguyen  <ttn@gnu.org>
+
+       * progmodes/scheme.el (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.
+
 2003-09-30  Lars Hansen  <larsh@math.ku.dk>
 
        * desktop.el: A lot of comments updated.
@@ -16,7 +23,7 @@
        for displaying ``clean'' output.
        (whitespace-buffer): Use `whitespace-clean-msg'.
        (whitespace-global-mode): Fix typo.
-       
+
 2003-09-29  Thien-Thi Nguyen  <ttn@gnu.org>
 
        * pcvs.el (cvs-mode-unmark-up): Move to goal column when done.

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index 8f20438d0588e18992b0f669f40f0786496b26b4..d85c2ba9db20dd4e103ce7b1a50add8629f413a3 100644 (file)
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -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 @@ See `run-hooks'."
       ;; 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.")