(add-to-list 'default-frame-alist '(cursor-color . "palegoldenrod"))
(autoload 'octave-mode "octave-mod" nil t)
(setq auto-mode-alist
      (cons '("\\.m$" . octave-mode) auto-mode-alist))

(add-to-list 'load-path "~/misc/elisp")

(setq inhibit-startup-message t)
(setq initial-scratch-message nil)
(column-number-mode 1)
(auto-image-file-mode 1)

(setq-default fill-column 77)
(setq-default indent-tabs-mode nil)                    ; no TABs, please

(put 'eval-expression 'disabled nil)

(global-set-key "\C-x\C-b" 'electric-buffer-list)

(global-set-key "\M-r" 'revert-buffer)

(setq dired-listing-switches "-alF")

(setq c-default-style "stroustrup"
      c-basic-offset 2)

(if window-system
    (progn
      (set-foreground-color "green")
      (set-background-color "black")
      (set-face-foreground 'bold "maroon")
      (set-face-foreground 'italic "blue")
      (set-face-foreground 'bold-italic "darkgreen")
      (set-face-foreground 'modeline "white")
      (set-face-background 'modeline "maroon")))
(menu-bar-mode -1)
(tool-bar-mode -1)
(if window-system
    (scroll-bar-mode -1))

(put 'downcase-region 'disabled nil)

(when (require 'edit-server nil t)
      (setq edit-server-new-frame t)
      (edit-server-start))

(setq default-cursor-type 'box)