(setq-default case-fold-search nil)

(setq tex-dvi-view-command "xdvi")

(setq tex-dvi-print-command "lpr -Psc175")

(setq lpr-command "lpr -Psc175")

(setq tex-run-command "latex")

(put 'downcase-region 'disabled nil)

(put 'upcase-region 'disabled nil)


 (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 auto-mode-alist '(
  ("\\.el\\'"    . emacs-lisp-mode)
  ("\\.emacs\\'" . emacs-lisp-mode)
  ("\\.l?hs$"    . gofer-mode)
  ("\\.gp$"      . gofer-project-mode)
  ("Dictionary$" . foldoc-mode)
  ("[-.]info$"   . info-file-mode)
  ("/info/"      . info-file-mode)
  ("\\.m$"       . mira-mode)
  ("\\.c\\'"     . c-mode)
  ("\\.h\\'"     . c-mode)
  ("\\.tex\\'"   . LaTeX-mode)
  ("\\.sty\\'"   . LaTeX-mode)
  ("\\.bbl\\'"   . LaTeX-mode)
  ("\\.bib\\'"   . bibtex-mode)
  ("\\.texi"     . texinfo-mode)
  ("\\.pl\\'"    . perl-mode)
  ("\\.awk\\'"   . awk-mode)
  ("\\.tar\\'"   . tar-mode)
  ("\\.y\\'"     . c-mode)
  ("\\.lex\\'"   . c-mode)
  ("\\*mail\\*"  . mail-mode)
  ("\\.html\\'"  . html-mode)
))