mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-24 23:31:33 -07:00
Code Issues Projects Releases Wiki Activity

(scheme-mode-variables): When setting

Browse source 
`font-lock-defaults', also specify that "#" should
be interpreted with `word' syntax.
(scheme-font-lock-keywords-2): Also interpret "#:foo" as keyword.
This commit is contained in:
Thien-Thi Nguyen 2003-09-30 11:47:57 +00:00
parent 7460e98023
commit cb049c411e
2 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

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

6
lisp/progmodes/scheme.el
View file

@ -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.")