From 67ed8fcd04edeff2d4931acf476e7067c5ceeef2 Mon Sep 17 00:00:00 2001 From: Leo Liu Date: Sat, 16 Mar 2013 23:24:39 +0800 Subject: [PATCH] =?utf8?q?*=20progmodes/scheme.el:=20Add=20indentation=20a?= =?utf8?q?nd=20font-locking=20for=20=CE=BB.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Fixes: debbugs:13975 --- lisp/ChangeLog | 5 +++++ lisp/progmodes/scheme.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 71460a3d7a7..8102cb56a97 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-03-16 Leo Liu + + * progmodes/scheme.el: Add indentation and font-locking for λ. + (Bug#13975) + 2013-03-14 Stefan Monnier * emacs-lisp/smie.el (smie-auto-fill): Don't inf-loop if there's no diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index a7dbc411622..01f0988f08f 100644 --- a/lisp/progmodes/scheme.el +++ b/lisp/progmodes/scheme.el @@ -310,7 +310,7 @@ See `run-hooks'." "(" (regexp-opt '("begin" "call-with-current-continuation" "call/cc" "call-with-input-file" "call-with-output-file" "case" "cond" - "do" "else" "for-each" "if" "lambda" + "do" "else" "for-each" "if" "lambda" "λ" "let" "let*" "let-syntax" "letrec" "letrec-syntax" ;; SRFI 11 usage comes up often enough. "let-values" "let*-values" @@ -410,6 +410,7 @@ that variable's value is a string." (put 'make 'scheme-indent-function 1) (put 'style 'scheme-indent-function 1) (put 'root 'scheme-indent-function 1) +(put 'λ 'scheme-indent-function 1) (defvar dsssl-font-lock-keywords (eval-when-compile -- 2.39.2