# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1108901109 0
# Node ID d5618f82042595d712d93ee569cf44a678f45322
# Parent  c0c13351b8c78b26f5eeef0672a1c734fe2c4fc4
(scheme-font-lock-keywords-2): Handle named-let.

diff -r c0c13351b8c7 -r d5618f820425 lisp/progmodes/scheme.el
--- a/lisp/progmodes/scheme.el	Sun Feb 20 05:02:54 2005 +0000
+++ b/lisp/progmodes/scheme.el	Sun Feb 20 12:05:09 2005 +0000
@@ -330,6 +330,10 @@
 	       "map" "syntax" "syntax-rules") t)
 	"\\>") 1)
       ;;
+      ;; It wouldn't be Scheme w/o named-let.
+      '("(let\\s-+\\(\\sw+\\)"
+        (1 font-lock-function-name-face))
+      ;;
       ;; David Fox <fox@graphics.cs.nyu.edu> for SOS/STklos class specifiers.
       '("\\<<\\sw+>\\>" . font-lock-type-face)
       ;;