#:keyword font locking for scheme.el

* #:keyword font locking for scheme.el
@ 2003-09-29  0:12 Thien-Thi Nguyen
  2003-09-29  7:17 ` Neil Jerram
  2003-09-29 23:19 ` Rob Browning
  0 siblings, 2 replies; 4+ messages in thread
From: Thien-Thi Nguyen @ 2003-09-29  0:12 UTC (permalink / raw)

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 <fox@graphics.cs.nyu.edu> 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 <fox@graphics.cs.nyu.edu> 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.")

_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/guile-devel

^ permalink raw reply	[flat|nested] 4+ messages in thread