equal
deleted
inserted
replaced
697 (setq compilation-scroll-output 1) |
697 (setq compilation-scroll-output 1) |
698 |
698 |
699 ;; My funny error messages. |
699 ;; My funny error messages. |
700 ;; XXX нужно реализовать через hook. |
700 ;; XXX нужно реализовать через hook. |
701 (require 'compile) |
701 (require 'compile) |
702 (add-to-list 'compilation-error-regexp-alist-alist '(nant "^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4)) |
702 (add-to-list 'compilation-error-regexp-alist '("^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4)) |
703 (add-to-list 'compilation-error-regexp-alist 'nant) |
703 (add-to-list 'compilation-error-regexp-alist '("^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2)) |
704 (add-to-list 'compilation-error-regexp-alist-alist '(msvc "^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2)) |
704 ;; (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^ ]+\\)" . 1)) |
705 (add-to-list 'compilation-error-regexp-alist 'msvc) |
705 ;; (add-to-list 'compilation-mode-font-lock-keywords '("[ ]\\(/F[oe][^ ]+\\)" . 1)) |
706 (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^ ]+\\)" . 1)) |
|
707 (add-to-list 'compilation-mode-font-lock-keywords '("[ ]\\(/F[oe][^ ]+\\)" . 1)) |
|
708 |
706 |
709 ;; ---------------------------------------------------------------------- |
707 ;; ---------------------------------------------------------------------- |
710 ;; asm |
708 ;; asm |
711 ;; (setq-default asm-comment-char 59) |
709 ;; (setq-default asm-comment-char 59) |
712 (add-hook 'asm-mode-hook '(lambda () (setq comment-start "/*") (setq comment-end "*/")) t) |
710 (add-hook 'asm-mode-hook '(lambda () (setq comment-start "/*") (setq comment-end "*/")) t) |