; do not use system default settings.
(setq inhibit-default-init t);

; if you are using emacs, uncoment the following line.
(load "/home/helpdesk/trial/ess/ess-site")
; if you are using xemacs, uncomment the following line.
; (load "/home/helpdesk/trial/ess_xemacs/ess-site")

; if you want to set an ess-directory, change the following line.
; ( setq-default ess-directory nil)
; to something like:
; ( setq-default ess-directory (getenv "HOME"))

; press F1 to show help, in both command window and script window
(define-key ess-mode-map  (kbd "<f1>") (quote ess-display-help-on-object))
(define-key inferior-ess-mode-map  (kbd "<f1>") (quote ess-display-help-on-object))
; press HOME to go to the beginning of the command. (After > )
(define-key inferior-ess-mode-map (kbd "<home>") (quote comint-bol-or-process-mark))
; Under gnome, C-Up/Down can not be used. So, use Alt-Up/Down
(define-key inferior-ess-mode-map (kbd "<A-up>") (quote comint-previous-input))
(define-key inferior-ess-mode-map (kbd "<A-down>") (quote comint-next-input))
; press F9 for evaluate region
(define-key ess-mode-map  (kbd "<f9>")  (quote ess-eval-line-and-step))
; press F10 for evaluate region
(define-key ess-mode-map  (kbd "<f10>")  (quote ess-eval-region))
; press F11 to evaluate buffer
; because of different keymap, F11 might be F11 or SunF36, define both.
; hope that it will not cause trouble.
(define-key ess-mode-map  (kbd "<f11>") (quote ess-eval-buffer))
(define-key ess-mode-map  (kbd "<SunF36>") (quote ess-eval-buffer))
; press F12 to go to the end of command window
(define-key inferior-ess-mode-map  (kbd "<f12>") (quote comint-show-maximum-output))
(define-key ess-mode-map  (kbd "<f12>") (quote ess-switch-to-end-of-ESS))
(define-key inferior-ess-mode-map  (kbd "<SunF37>") (quote comint-show-maximum-output))
(define-key ess-mode-map  (kbd "<SunF37>") (quote ess-switch-to-end-of-ESS))
; bug mode
(define-key ess-bugs-mode-map  (kbd "<SunF37>") (quote ess-bugs-next-action))

(fset 'ess-execute-dev-off  [f12 ?d ?e ?v ?. ?o ?f ?f ?( ?) return])

(define-key ess-mode-map  (kbd "<f5>")  (quote ess-execute-dev-off))
(define-key inferior-ess-mode-map  (kbd "<f5>")  (quote ess-execute-dev-off))


; windows style kill-buffer
(global-set-key  (kbd "<C-f4>") (quote kill-buffer))

; for latex mode
(setq tex-dvi-view-command "xdvi")

(global-set-key (kbd "<delete>")  'delete-char)
(global-set-key (kbd "<home>")    'beginning-of-line)
(global-set-key (kbd "<end>")     'end-of-line)

; CUA package only work for emacs. If you are using xemacs, comment the following two lines.
(load "/home/helpdesk/trial/cua/cua")
(CUA-mode t)



; the following are very personal. Others might not like this.

(global-set-key (kbd "<f1>") (quote delete-other-windows))
(global-set-key (kbd "<f2>") (quote save-buffer))
(global-set-key (kbd "<f3>") (quote isearch-forward))
(global-set-key (kbd "<C-f4>")  (quote kill-buffer))
; only sun keyboard has f13, f17. :-(
(global-set-key (kbd "<f13>")  (quote find-file))
(global-set-key (kbd "<f17>")  (quote find-file))
; have to use f4
(global-set-key (kbd "<f4>") (quote find-file))
(global-set-key (kbd "<A-f4>") (quote save-buffers-kill-emacs ))
; C-a
(global-set-key (kbd "C-a") (quote mark-whole-buffer ))



(setq load-path (cons "/home/helpdesk/trial/ultratex/lisp" load-path))
(require 'light)
(require 'ultex-setup)