From cb049c411e04f414a0854cd705cd299d111e5929 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Tue, 30 Sep 2003 11:47:57 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 9 ++++++++- lisp/progmodes/scheme.el | 6 +++--- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bb27d39a4c..e7e56bcbfb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2003-09-30 Thien-Thi Nguyen + + * 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 * 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 * 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 8f20438d05..d85c2ba9db 100644 --- 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 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.") -- 2.20.1