#:keyword font locking for scheme.el

[Thien-Thi Nguyen]

any objections to this change (patch below) to scheme.el?
it enables font locking for both

        :this-style

as well as

        #:this-style

keywords.  currently for the latter, the hash is left unfontified,
which i suppose could be aesthetically pleasing to some...

a related-elisp question: i notice imenu has a similar init string as
the one changed for `font-lock-defaults'.  should that be changed, too?

passing note: guile allows both styles to be recognized as keywords,
depending on an option that affects `read'.  because of lack of hash
fontification back when i was getting into scheme programming (when i
finally tried using emacs under X w/ hilit19, that is ;-), a lot of my
code avoided "#:key" to use ":key" because it was prettier.  silly
programmer.

thi


____________________________________________________
*** scheme.el.~1.45.~   Sun Sep  7 11:24:10 2003
--- scheme.el   Mon Sep 29 01:46:57 2003
***************
*** 165,171 ****
    (setq font-lock-defaults
          '((scheme-font-lock-keywords
             scheme-font-lock-keywords-1 scheme-font-lock-keywords-2)
!           nil t (("+-*/.<>=!?$%_&~^:" . "w")) beginning-of-defun
            (font-lock-mark-block-function . mark-defun)
            (font-lock-syntactic-face-function . 
lisp-font-lock-syntactic-face-function))))
  
--- 165,171 ----
    (setq font-lock-defaults
          '((scheme-font-lock-keywords
             scheme-font-lock-keywords-1 scheme-font-lock-keywords-2)
!           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,344 ****
        ;; David Fox <address@hidden> for SOS/STklos class specifiers.
        '("\\<<\\sw+>\\>" . font-lock-type-face)
        ;;
!       ;; Scheme `:' keywords as builtins.
!       '("\\<:\\sw+\\>" . font-lock-builtin-face)
        )))
    "Gaudy expressions to highlight in Scheme modes.")
  
--- 337,344 ----
        ;; David Fox <address@hidden> for SOS/STklos class specifiers.
        '("\\<<\\sw+>\\>" . font-lock-type-face)
        ;;
!       ;; Scheme `:' and `#:' keywords as builtins.
!       '("\\<#*:\\sw+\\>" . font-lock-builtin-face)
        )))
    "Gaudy expressions to highlight in Scheme modes.")