--- a/.emacs-my	Mon Mar 21 22:44:45 2011 +0200
+++ b/.emacs-my	Tue Mar 22 00:04:05 2011 +0200
@@ -1323,6 +1323,15 @@
 ;; Goto elisp definition.
 (define-key emacs-lisp-mode-map (kbd "M-.") 'find-function-at-point)
 
+;; http://www.emacswiki.org/emacs/PrettyLambda
+(font-lock-add-keywords
+ 'emacs-lisp-mode
+ `(
+   ("(\\<\\(lambda\\)\\>"
+    (1 (progn (compose-region (match-beginning 1) (match-end 1) ,(make-char 'greek-iso8859-7 107)) font-lock-keyword-face))
+    )
+   ))
+
 ;;; ----------------------------------------------------------------
 (message "C, c-mode, C++, c++-mode")