From 220715073c1d151419ef58505e9a88e5a75cfeec Mon Sep 17 00:00:00 2001
From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Sun, 20 Feb 2005 12:07:08 +0000
Subject: [PATCH] (scheme-font-lock-keywords-2): Handle named-let.

---
 lisp/ChangeLog           | 4 ++++
 lisp/progmodes/scheme.el | 4 ++++
 2 files changed, 8 insertions(+)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5a1494c1de..c218d5af31 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 bf0f18d5bb..d9ffea852d 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)
       ;;
-- 
2.20.1