.emacs-my
changeset 553 5d10932ca9c0
parent 552 1cdd21e5f0b9
child 554 c191c36b0e36
equal deleted inserted replaced
552:1cdd21e5f0b9 553:5d10932ca9c0
  1124       compile-command "make ")
  1124       compile-command "make ")
  1125 ;; compilation window shall scroll down if not 0
  1125 ;; compilation window shall scroll down if not 0
  1126 (setq compilation-scroll-output 1)
  1126 (setq compilation-scroll-output 1)
  1127 
  1127 
  1128 (eval-after-load 'compile
  1128 (eval-after-load 'compile
  1129   ;; My funny error messages.
  1129   (lambda nil
  1130   (add-to-list 'compilation-error-regexp-alist '("^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4))
  1130     ;; My funny error messages.
  1131   (add-to-list 'compilation-error-regexp-alist '("^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2))
  1131     (add-to-list 'compilation-error-regexp-alist '("^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4))
  1132   (add-to-list 'compilation-error-regexp-alist '("^\"?\\([^\"]*\\)\"?,\\([0-9]*\\) .*\\[.*\\]: " 1 2)) ; KEIL compiler
  1132     (add-to-list 'compilation-error-regexp-alist '("^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2))
  1133   )
  1133     (add-to-list 'compilation-error-regexp-alist '("^\"?\\([^\"]*\\)\"?,\\([0-9]*\\) .*\\[.*\\]: " 1 2)) ; KEIL compiler
       
  1134     ))
  1134 
  1135 
  1135 ;; (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^ 	]+\\)" . 1))
  1136 ;; (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^ 	]+\\)" . 1))
  1136 ;; (add-to-list 'compilation-mode-font-lock-keywords '("[ 	]\\(/F[oe][^ 	]+\\)" . 1))
  1137 ;; (add-to-list 'compilation-mode-font-lock-keywords '("[ 	]\\(/F[oe][^ 	]+\\)" . 1))
  1137 
  1138 
  1138 ;;; ----------------------------------------------------------------
  1139 ;;; ----------------------------------------------------------------