.emacs-my
changeset 33 70157d4d678d
parent 32 3bb9effaa2c1
child 34 075552143886
equal deleted inserted replaced
32:3bb9effaa2c1 33:70157d4d678d
   689 ;; My funny error messages.
   689 ;; My funny error messages.
   690 ;; XXX нужно реализовать через hook.
   690 ;; XXX нужно реализовать через hook.
   691 (require 'compile)
   691 (require 'compile)
   692 (add-to-list 'compilation-error-regexp-alist-alist '(nant "^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4))
   692 (add-to-list 'compilation-error-regexp-alist-alist '(nant "^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4))
   693 (add-to-list 'compilation-error-regexp-alist 'nant)
   693 (add-to-list 'compilation-error-regexp-alist 'nant)
       
   694 (add-to-list 'compilation-error-regexp-alist-alist '(msvc "^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2))
       
   695 (add-to-list 'compilation-error-regexp-alist 'msvc)
   694 (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^ 	]+\\)" . 1))
   696 (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^ 	]+\\)" . 1))
   695 (add-to-list 'compilation-mode-font-lock-keywords '("[ 	]\\(/F[oe][^ 	]+\\)" . 1))
   697 (add-to-list 'compilation-mode-font-lock-keywords '("[ 	]\\(/F[oe][^ 	]+\\)" . 1))
   696 
   698 
   697 ;; ----------------------------------------------------------------------
   699 ;; ----------------------------------------------------------------------
   698 ;; asm
   700 ;; asm