; rem these out for non-ifs emacs
; (define-key global-map "\C-x?" 'help-command)
; (define-key global-map "\C-h" 'delete-backward-char)

(setq-default abbrev-mode t)
(read-abbrev-file "~/.abbrev_defs")
(setq save-abbrevs t)

(setq-default transient-mark-mode t)

(add-hook 'text-mode-hook 'turn-on-auto-fill)

(custom-set-variables
 '(tex-dvi-view-command "xdvi" t)
 '(backup-by-copying t)
 '(global-font-lock-mode t nil (font-lock))
 '(tex-default-mode (quote latex-mode) t)
 '(font-lock-global-modes t))
(custom-set-faces)

; don't know if this works...

(require 'tex-site)
(setq outline-minor-mode-prefix "\C-c\C-o") ; Or whatever...
; might be better "\C-c\C-o"

; below from Per Abrahamsen of auc-tex group
(defun turn-on-outline-minor-mode ()
  (outline-minor-mode 1))

(add-hook 'LaTeX-mode-hook 'turn-on-outline-minor-mode)
(add-hook 'emacs-lisp-mode-hook 'turn-on-outline-minor-mode)
(add-hook 'TeXinfo-mode-hook 'turn-on-outline-minor-mode)

; will this work?

; (load-library "tex-jp.el")
; apparently not

; try this since could also use in regular text

(add-hook 'text-mode-hook 'turn-on-outline-minor-mode)

;
; this was added to have a local abbrev expansion in LaTeX
; (see discussion in email 'compnet' folder)

(define-abbrev-table 'LaTeX-mode-abbrev-table nil)
(add-hook 'LaTeX-mode-hook
          (lambda ()
            (setq local-abbrev-table LaTeX-mode-abbrev-table)))

; ; trying to set up xae (for editing xml etc; recommended by emacs
; ; newsgroups) from installation in directory below

; (add-to-list 'load-path (expand-file-name
; "/usr/share/emacs/20.4/site-lisp/xae-1.0beta6/lisp"))
; (require 'xae)

; ;
; ; see if this corrects html-loading bug w/ xae (suggested by some guy
; ; on the xae mailing list in March)
; ;

; (setq auto-mode-alist (cons '("\\.xsl$" . xae-mode) auto-mode-alist))
; (setq auto-mode-alist (cons '("\\.htm$" . xae-mode) auto-mode-alist))
; (setq auto-mode-alist (cons '("\\.html$" . xae-mode) auto-mode-alist))
; (setq auto-mode-alist (cons '("\\.xsd$" . xae-mode) auto-mode-alist))
; (setq auto-mode-alist (cons '("\\.hs$" . xae-mode) auto-mode-alist))
; (setq auto-mode-alist (cons '("\\.jhm$" . xae-mode) auto-mode-alist))


;
; using html-helper-mode temporarily instead of xae above (too
; confusing and I need to get html going for my class website)
;

(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
(setq auto-mode-alist (cons '("\\.html$" . html-helper-mode)
auto-mode-alist))
(setq html-helper-do-write-file-hooks t)
(setq html-helper-build-new-buffer t)
(setq html-helper-address-string "<a href=\"mailto:spetey@umich.edu\">Steve Petersen</a>")

(autoload 'maniac-fill-mode "maniac" nil t)

(setq outline-regexp "[@\^L]+")

(global-set-key "\M-]" 'unexpand-abbrev)