(global-set-key [f5] 'goto-line)
(global-set-key [f1] 'isearch-forward)
(global-set-key [f2] 'isearch-backward)
(global-set-key [f9] 'save-buffer)
(global-set-key [f10] 'kill-emacs)
(global-set-key [home] 'beginning-of-buffer)
(global-set-key [end] 'end-of-buffer)
(global-set-key "\^H" 'delete-backward-char )
; this is semi obsolete (standard-display-european 1)

;; Supress the GNU startup message
(setq inhibit-startup-message t)


(set-language-environment "Latin-9")
(set-input-mode nil nil 'foo)
(set-input-mode (car (current-input-mode))
                (nth 1 (current-input-mode))
                'accept-8bit-input)
;(require 'iso-syntax)
(cond (window-system
        (setq hilit-mode-enable-list  '(not text-mode)
              hilit-background-mode   'light
              hilit-inhibit-hooks     'nil
              hilit-inhibit-rebinding nil)

;        (require 'hilit19)
        ))


(setq f90-mode-hook
      '(lambda ()
;        (f90-auto-fill-mode 1)      ; turn on auto-filling
         (turn-on-font-lock)         ; for highlighting
         ))
(setq load-path (append load-path '("~/lisp")))
(autoload 'f90-mode "f90"
  "Major mode for editing Fortran 90 code in free format." t)
(setq auto-mode-alist (append auto-mode-alist
                              (list '("\\(.f90$\\|.F$\\|.F90\\)" . f90-mode))))
;(font-lock-add-keywords 'f90-mode '("\\<\\(and\\|or\\|double precision\\)\\>"))
;(font-lock-add-keywords 'f90-mode '("\\<\\(dimension\\|allocatable\\)\\>"))
;(font-lock-add-keywords 'f90-mode '("\\<\\(allocate\\|deallocate\\)\\>"))


(setq fortran-mode-hook
      '(lambda ()
         (turn-on-font-lock)         ; for highlighting
;       (force-mode-line-update)
         ))
(setq load-path (append load-path '("~/lisp")))
(autoload 'fortran-mode "fortran"
  "Major mode for editing Fortran 77 code in fixed format." t)
(setq auto-mode-alist (append auto-mode-alist
                              (list '("\\.f77$" . fortran-mode))))


(setq tex-mode-hook
      '(lambda ()
;        (tex-auto-fill-mode 1)      ; turn on auto-filling
         (turn-on-font-lock)         ; for highlighting
         ))


;  (autoload 'ispell-word "ispell"
;    "Check the spelling of word in buffer." t)
;  (global-set-key "\e$" 'ispell-word)
;  (autoload 'ispell-region "ispell"
;    "Check the spelling of region." t)
;  (autoload 'ispell-buffer "ispell"
;    "Check the spelling of buffer." t)
;  (autoload 'ispell-complete-word "ispell"
;    "Look up current word in dictionary and try to complete it." t)
;  (autoload 'ispell-change-dictionary "ispell"
;    "Change ispell dictionary." t)3;  (autoload 'ispell-message "ispell"
;    "Check spelling of mail message or news post.")




;;; If you don't like the toolbar that comes with emacs 21, then remove it with this
  (tool-bar-mode 0)



(set-foreground-color "black")
(set-background-color "white")
(set-frame-font "-misc-fixed-bold-*-*-*-13-*-*-*-*-*-iso8859-15")
(when window-system
;; enable wheelmouse support by default
(mwheel-install))


(put 'downcase-region 'disabled nil)



(put 'downcase-region 'disabled nil)
(turn-on-font-lock)
(autoload 'matlab-mode "/usr/share/emacs/site-lisp/matlab.el" "Enter Matlab mode." t)
(setq auto-mode-alist (cons '("\\.m\\'" . matlab-mode) auto-mode-alist))
(autoload 'matlab-shell "/home/staff/veapaja/bin/matlab.el" "Interactive Matlab mode." t)
(custom-set-variables
  ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 '(auto-compression-mode t nil (jka-compr))
 '(case-fold-search t)
 '(current-language-environment "Latin-9")
 '(default-input-method "latin-9-prefix")
 '(global-font-lock-mode t nil (font-lock)))
(custom-set-faces
  ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 )


(autoload 'matlab-mode "/usr/share/emacs/site-lisp/goodies/matlab.el" "Enter Matlab mode." t) 
(setq auto-mode-alist (cons '("\\.m\\'" . matlab-mode) auto-mode-alist)) 
(autoload 'matlab-shell "/usr/share/emacs/site-lisp/goodies/matlab.el" "Interactive Matlab mode." t)