(defun dot () (point))

(defun my-java-mode ()
"Much like standard gnu Java mode, with a few defaults changed, such as
case-fold-search = nil.  See code in my-c-mode.el for similar re-bindings."
        (interactive)
        (java-mode)
     	(setq fill-prefix nil)
	(setq fill-column 79)
	(auto-fill-mode 1)
	(setq case-fold-search nil)
	(setq truncate-lines nil)
	(setq mode-name "my-Java")

        ; (set-line-spacing)  ; Turned off for now.  See comments in .emacs.

	(local-set-key "	" 'self-insert-command)
	(local-unset-key "{")
	(local-unset-key "}")
	(local-unset-key ":")
	(local-unset-key "/")
	(local-unset-key "*")
	; New annoying pieces of you-know-what.
	(local-unset-key ",")
	(local-unset-key "(")
	(local-unset-key ")")
	(local-unset-key ";")
	; Oh, there're more.
	(local-unset-key "j")
	(local-unset-key "q")
)

(defun fix-java-comment ()
"Justify a Java comment, keeping the leading \"...* \" fill prefix in tact."
	(interactive)
	(search-backward "/*\n")
	(next-line 1)
	(beginning-of-line)
	(setq m (dot))
	(search-forward "* ")
	(set-fill-prefix)
	(search-forward "*\n")
	(setq e (dot))
	(search-forward "*/\n")
	(if (< (dot) e) (setq e (dot)))
)