;;;---------------------------------------------------------------------
;;; Java mode foo
;;;---------------------------------------------------------------------

(autoload 'camelCase-mode "~/emacs/camelCase/camelCase-mode")
(add-hook 'jde-mode-hook '(lambda () (camelCase-mode 1)))
(add-hook 'jde-mode-hook 
	  '(lambda () (local-set-key "\M-backspace"
				     'camelCase-backward-kill-word))
	  'append)

(add-to-list 'load-path (expand-file-name "~/emacs/jde/lisp"))
(add-to-list 'load-path (expand-file-name "~/emacs/semantic"))
(add-to-list 'load-path (expand-file-name "~/emacs/speedbar"))
(add-to-list 'load-path (expand-file-name "~/emacs/elib"))
(add-to-list 'load-path (expand-file-name "~/emacs/eieio"))
(add-to-list 'load-path (expand-file-name "~/emacs/ecb"))


(c-set-offset 'arglist-intro '+)

(require 'overlay-fix)

(setq semantic-load-turn-everything-on t)
(require 'semantic-load)
(global-semanticdb-minor-mode -1)
(require 'eldoc)			;works around a bug when using
					;non-compiled JDE
(require 'jde)
(require 'ecb)

;;; Hacked semantic-java.el to circumvent semantic misuse of block-comment-end

;;; Increase the limit on number of Lisp variable bindings &
;;; unwind-protects.  Allows semantic to parse more complex Java files
(setq max-specpdl-size 1000)

;;; Allowing prompting for blanks in templates
(setq tempo-interactive t)

;;; When opening .jml files use java mode
(add-to-list 'auto-mode-alist '("\\.jml" . jde-mode))

;;; When opening .mj files use java mode
(add-to-list 'auto-mode-alist '("\\.mj" . jde-mode))

;;; Load antlr-mode
(autoload 'antlr-mode "antlr-mode" nil t)
(add-to-list 'auto-mode-alist '("\\.g\\'" . antlr-mode))
(add-hook 'speedbar-load-hook  ; would be too late in antlr-mode.el
	  (lambda () (speedbar-add-supported-extension ".g")))
;;; Make expanded...g files default to read-only
(add-hook 'antlr-mode-hook
	  (function 
	   (lambda ()
	     (if (string-match "expanded.*\\.g"  (buffer-name))
		 (toggle-read-only 1)
	       nil))))