--- a/.emacs-my	Fri Jan 21 13:59:30 2011 +0200
+++ b/.emacs-my	Fri Jan 21 14:56:53 2011 +0200
@@ -336,14 +336,14 @@
 (setq grep-use-null-device nil)
 
 (eval-after-load 'grep
-  (lambda nil
-    (add-to-list 'grep-find-ignored-directories "build" t)
-    (add-to-list 'grep-find-ignored-directories "dist" t)
-    (add-to-list 'grep-find-ignored-directories "lib" t)
+  '(progn
+     (add-to-list 'grep-find-ignored-directories "build" t)
+     (add-to-list 'grep-find-ignored-directories "dist" t)
+     (add-to-list 'grep-find-ignored-directories "lib" t)
 
-    (add-to-list 'grep-find-ignored-files "*TAGS")
-    (add-to-list 'grep-find-ignored-files "GPATH")
-    ))
+     (add-to-list 'grep-find-ignored-files "*TAGS")
+     (add-to-list 'grep-find-ignored-files "GPATH")
+     ))
 
 (global-set-key [M-f7] 'rgrep)
 
@@ -1127,16 +1127,16 @@
 (setq compilation-scroll-output 1)
 
 (eval-after-load 'compile
-  (lambda nil
-    ;; My funny error messages.
-    (add-to-list 'compilation-error-regexp-alist '("^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4))
-    (add-to-list 'compilation-error-regexp-alist '("^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2))
-    (add-to-list 'compilation-error-regexp-alist '("^\"?\\([^\"]*\\)\"?,\\([0-9]*\\) .*\\[.*\\]: " 1 2)) ; KEIL compiler
-    (when (boundp 'compilation-mode-font-lock-keywords)
-      (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^[:blank:]]+\\)" . 1))
-      (add-to-list 'compilation-mode-font-lock-keywords '("[[:blank:]]\\(/F[oe][^[:blank:]]+\\)" . 1))
-      )
-    ))
+  '(progn
+     ;; My funny error messages.
+     (add-to-list 'compilation-error-regexp-alist '("^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4))
+     (add-to-list 'compilation-error-regexp-alist '("^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2))
+     (add-to-list 'compilation-error-regexp-alist '("^\"?\\([^\"]*\\)\"?,\\([0-9]*\\) .*\\[.*\\]: " 1 2)) ; KEIL compiler
+     (when (boundp 'compilation-mode-font-lock-keywords)
+       (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^[:blank:]]+\\)" . 1))
+       (add-to-list 'compilation-mode-font-lock-keywords '("[[:blank:]]\\(/F[oe][^[:blank:]]+\\)" . 1))
+       )
+     ))
 
 ;;; ----------------------------------------------------------------
 (message "TAGS, etags, ctags, GNU GLOBAL")