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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5a1494c1deb7a241349fccadb61c5f5448d250b8..c218d5af314dd65a6eb6b8238afa70d33329b145 100644 (file)
--- 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 bf0f18d5bba4dadd000fa212736aa8001beac8dc..d9ffea852d149dd858f42fc8f5d5e92b34e00367 100644 (file)
--- 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)
       ;;