;; Customizations for all of c-mode, c++-mode, and objc-mode
(defun my-c-mode-common-hook ()
  (if (string-match "casio/.*/[ch]/" buffer-file-name)
      (setq compile-command "mk.bat")))

;; add compilation error recogition for LSIJ PV compiler
;; c/foo.c 1624: syntax error near 'int'
(add-hook 'compilation-mode-hook 'my-compilation-mode-hook)
(defun my-compilation-mode-hook ()
  (setq compilation-process-setup-function 'my-compilation-process-setup-function ))
(defun my-compilation-process-setup-function ()
  (if (not (eq (car compilation-error-regexp-alist) 
	  '("\\(.*\\) \\([0-9]+\\): " 1 2)))
      (add-to-list 'compilation-error-regexp-alist
		   '("\\(.*\\) \\([0-9]+\\): " 1 2)))
  (if (string-match "casio/.*/[ch]/$" default-directory)
      (progn
	(setq thisdir (substring thisdir 0 -2))
	(setq default-directory (substring default-directory 0 -2))
	(add-to-list 'compilation-search-path default-directory)
	)))

(defun my-asm-mode-hook ()
  (turn-on-font-lock)
  (if (string-match "a86$" buffer-file-name)
      (setq compile-command "mk.bat")))