(global-font-lock-mode t)
(set-background-color "white")
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)

;;; If you want to use this this with 20.*, put this into your .emacs file:
;;for cperl mode:
(defvar choose-color-faces-done nil)
(if (and (boundp 'emacs-major-version)
	 (> emacs-major-version 19))
    (progn
      (require 'faces)			; May load us...
      (if choose-color-faces-done nil
	(fset 'choose-color-internal-set-face-1 (symbol-function 'internal-set-face-1))
	(defun internal-set-face-1 (face name value index frame)
	  "Substitute to `internal-set-face-1' from faces.el.  Uses `choose-color'."
	  (choose-color-internal-set-face-1 face name (choose-color value) index frame))
	(setq choose-color-faces-done t))))
(autoload 'choose-color "~/emacslib/choose-color" "Choose color wisely.")

;;;(setq auto-mode-alist
;;;      (append '(("\\.\\([pP][Llm]\\|al\\)$" . perl-mode))  auto-mode-alist ))
;;;(setq interpreter-mode-alist (append interpreter-mode-alist
;;;				     '(("miniperl" . perl-mode))))

(autoload 'perl-mode "~/emacslib/cperl-mode" "alternate mode for editing Perl programs" t)
(setq auto-mode-alist
      (append '(("\\.\\([pP][Llm]\\|al\\)$" . perl-mode))  auto-mode-alist ))
(setq interpreter-mode-alist (append interpreter-mode-alist
				     '(("miniperl" . perl-mode))))
(setq cperl-hairy nil)
(setq cperl-auto-newline nil)
(setq cperl-tab-always-indent t)
(define-key global-map [M-S-down-mouse-3] 'imenu)
(add-hook 'c-mode-hook 'turn-on-font-lock)
(setq font-lock-support-mode 'lazy-lock-mode)
(setq font-lock-maximum-decoration t)

;; for Matlab mode:
(autoload 'matlab-mode "~/emacslib/matlab" "Enter Matlab mode." t)
(setq auto-mode-alist (cons '("\\.m\\'" . matlab-mode) auto-mode-alist))
(autoload 'matlab-shell "matlab" "Interactive Matlab mode." t)

;; User Level customizations:
(setq matlab-indent-function t)	; if you want function bodies indented
(setq matlab-verify-on-save-flag nil) ; turn off auto-verify on save
(defun my-matlab-mode-hook ()
  (setq fill-column 76))		; where auto-fill should wrap
(add-hook 'matlab-mode-hook 'my-matlab-mode-hook)
(defun my-matlab-shell-mode-hook ()
  '())
(add-hook 'matlab-shell-mode-hook 'my-matlab-shell-mode-hook)