(scheme-font-lock-keywords-2): Handle named-let.

2 files changed, 8 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5a1494c1deb..c218d5af314 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-02-20  Thien-Thi Nguyen  <ttn@gnu.org>
+
+        * progmodes/scheme.el (scheme-font-lock-keywords-2): Handle named-let.
+
 2005-02-20  Jonathan Yavner  <jyavner@member.fsf.org>
 
         * ses.el (undo-more): restore defadvice, but only the part that
diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index bf0f18d5bba..d9ffea852d1 100644
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -330,6 +330,10 @@ See `run-hooks'."
                "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)
       ;;