;; Red Hat Linux default .emacs initialization file

;; Set up the keyboard so the delete key on both the regular keyboard
;; and the keypad delete the character under the cursor and to the right
;; under X, instead of the default, backspace behavior.

(global-set-key [delete] 'delete-char)
(global-set-key [kp-delete] 'delete-char)


(defconst c-cms-c-style
	'( (c-offsets-alist . (( topmost-intro-cont . ++ )
			       ( arglist-close . ++ )
			       ( arglist-intro . ++ )
			       ( inline-open . 0 )
			       ( defun-open . + )
			       ( class-open . + )
			       ( topmost-intro . - )
			       ( defun-block-intro . 0 )
			       ( inline-close . 0 ) 
			       ( statement-block-intro . 0 )
			       ( class-close . + )
			       ( block-close . 0 )) )
	   (c-basic-offset . 2)
	 )
	"CMS C Programming style" )
(c-add-style "cms-c" c-cms-c-style t )

(defconst c-cms-java-style
        '( "java"
           (c-offsets-alist . (( inher-intro . ++ )
                               ( class-open . + )
                               ( inline-open . 0 )
                               ( defun-block-intro . 0 )
                               ( topmost-intro . - )
                               ( arglist-intro . ++ )
                               ( arglist-close . ++ )
                               ( class-close . + )
			       ( statement-block-intro . 0 )) )
           (c-basic-offset . 2 )
        )
        "CMS Java Programming Style")
(c-add-style "cms-java" c-cms-java-style )	



(defun use-cms-java-style ()
           "Defines `cms-java' indentation style.
            For use with the variable `java-mode-hook'."
           (c-set-style "cms-java"))
(defun use-cms-c-style()
           "Defines `cms-c' indentation style.
            For use with the variable 'c-mode-hook'."
           (c-set-style "cms-c"))
(add-hook 'java-mode-hook 'use-cms-java-style)
(add-hook 'c-mode-hook 'use-cms-c-style)
(add-hook 'latex-mode-hook '(lambda () (font-lock-mode 1)))
(add-hook 'c-mode-hook '(lambda () (font-lock-mode 1)))
(add-hook 'java-mode-hook '(lambda () (font-lock-mode 1)))