;; Options Menu Settings
;; =====================
(cond
 ((and (string-match "XEmacs" emacs-version)
       (boundp 'emacs-major-version)
       (or (and
            (= emacs-major-version 19)
            (>= emacs-minor-version 14))
           (= emacs-major-version 20)))))
;; ============================
;; End of Options Menu Settings

;; CUSTOMIZED BY KARAN
(setq initial-major-mode
	(lambda()
		(font-lock-mode)))

;; set undefined function keys to do common tasks
(global-set-key (quote [f2]) (quote undo)) ;;undo
(global-set-key (quote [f3]) (quote save-buffer)) ;;save
(global-set-key (quote [f4]) (quote write-file)) ;;save-as
(global-set-key (quote [f5]) (quote kill-region)) ;;cut
(global-set-key (quote [f6]) (quote kill-ring-save)) ;;copy
(global-set-key (quote [f7]) (quote yank)) ;;paste
(global-set-key (quote [(control a)]) (quote mark-whole-buffer)) ;;select all

;; set delete, replacing of selected region
(require 'pending-del)
(pending-delete-mode 1)

;; show full path of file in title bar
(setq frame-title-format "%S: %f")

(setq TeX-auto-save t)
(setq TeX-parse-self t)
(setq-default TeX-master nil)

;; --- fill column for auto-fill-mode
(setq-default fill-column 75)

(setq
 line-number-mode t 
 column-number-mode t
 options-save-faces t
 delete-auto-save-files t
 bell-volume 0
)

;; always end a file with a newline
(setq require-final-newline t)

;; don't let `next-line' add new lines in buffer
(setq next-line-add-newlines nil)

;; enable wheelmouse support by default
(when window-system
  (mwheel-install))

;; ---- for syntax higlighting of nesC code -- start:
(setq myhome (getenv "HOME") )
(setq load-path (append
                 (list
                 (concat myhome "/.xemacs" )
                  )
                 load-path
                 )
      )

(autoload 'nesc-mode "nesc"
"Major mode for editing Nesc code." t)
(setq auto-mode-alist (cons '( "\\.nc\\'" . nesc-mode ) auto-mode-alist))
;; ---- end nesC customization

;; ---- for syntax higlighting of FreeMarker code -- start:
(setq myhome (getenv "HOME") )
(setq load-path (append
                 (list
                 (concat myhome "/.xemacs" )
                  )
                 load-path
                 )
      )

(autoload 'ftl-mode "ftl"
"Major mode for editing FreeMarker code." t)
(setq auto-mode-alist (cons '( "\\.ftl\\'" . ftl-mode ) auto-mode-alist))
;; ---- end FTL customization