# HG changeset patch # User Oleksander Gavenko # Date 1208466689 -10800 # Node ID b05bcec107fd497c53dc8b526a12016f06a2393a # Parent abfaf7eff0b20bea6a8fbe4582c46b2728dfd2b3 Correct coding (aotu determine CR/LF). diff -r abfaf7eff0b2 -r b05bcec107fd .emacs --- 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