/[emacs]/emacs/lisp/progmodes/scheme.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/scheme.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.45 by miles, Mon Sep 1 15:45:35 2003 UTC revision 1.46 by ttn, Tue Sep 30 11:46:13 2003 UTC
# Line 165  Line 165 
165    (setq font-lock-defaults    (setq font-lock-defaults
166          '((scheme-font-lock-keywords          '((scheme-font-lock-keywords
167             scheme-font-lock-keywords-1 scheme-font-lock-keywords-2)             scheme-font-lock-keywords-1 scheme-font-lock-keywords-2)
168            nil t (("+-*/.<>=!?$%_&~^:" . "w")) beginning-of-defun            nil t (("+-*/.<>=!?$%_&~^:#" . "w")) beginning-of-defun
169            (font-lock-mark-block-function . mark-defun)            (font-lock-mark-block-function . mark-defun)
170            (font-lock-syntactic-face-function . lisp-font-lock-syntactic-face-function))))            (font-lock-syntactic-face-function . lisp-font-lock-syntactic-face-function))))
171    
# Line 337  See `run-hooks'." Line 337  See `run-hooks'."
337        ;; David Fox <fox@graphics.cs.nyu.edu> for SOS/STklos class specifiers.        ;; David Fox <fox@graphics.cs.nyu.edu> for SOS/STklos class specifiers.
338        '("\\<<\\sw+>\\>" . font-lock-type-face)        '("\\<<\\sw+>\\>" . font-lock-type-face)
339        ;;        ;;
340        ;; Scheme `:' keywords as builtins.        ;; Scheme `:' and `#:' keywords as builtins.
341        '("\\<:\\sw+\\>" . font-lock-builtin-face)        '("\\<#?:\\sw+\\>" . font-lock-builtin-face)
342        )))        )))
343    "Gaudy expressions to highlight in Scheme modes.")    "Gaudy expressions to highlight in Scheme modes.")
344    

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26