--- a/.emacs	Fri Apr 18 00:07:14 2008 +0300
+++ b/.emacs	Fri Apr 18 00:11:29 2008 +0300
@@ -5,8 +5,6 @@
 ;;
 ;; ~/.emacs file for GNU Emacs 21.
 
-
-
 ;; silent runing
 (setq inhibit-startup-message t)
 
@@ -214,8 +212,8 @@
       (set-selection-coding-system   'cp1251)
       (prefer-coding-system 'utf-8-unix)
       (prefer-coding-system 'cp1251-dos)
-      (modify-coding-system-alist 'file "\\.[ch]" 'cp1251-dos)
-      (modify-coding-system-alist 'file "[Mm]akefile.*" 'cp1251-dos)
+      (modify-coding-system-alist 'file "\\.[ch]" 'cp1251)
+      (modify-coding-system-alist 'file "[Mm]akefile.*" 'cp1251)
       )
   (progn
     (set-selection-coding-system   'utf-8-unix)
@@ -687,8 +685,11 @@
 ;; compilation window shall scroll down if not 0
 (setq compilation-scroll-output 1)
 
+;; My funny error messages.
 ;; XXX нужно реализовать через hook.
 (require 'compile)
+(add-to-list 'compilation-error-regexp-alist-alist '(nant "\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\))" 1 2 3))
+(add-to-list 'compilation-error-regexp-alist 'nant)
 (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^ 	]+\\)" . 1))
 (add-to-list 'compilation-mode-font-lock-keywords '("[ 	]\\(/F[oe][^ 	]+\\)" . 1))
 
@@ -696,10 +697,6 @@
 ;; asm
 (setq-default asm-comment-char 0)
 
-;; My funny error messages.
-(require 'compile)
-(add-to-list 'compilation-error-regexp-alist-alist '(nant "^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4))
-(add-to-list 'compilation-error-regexp-alist 'nant)
 
 ;; ----------------------------------------------------------------------
 ;; LISP