;;*=======================
;;* Initialise aucTeX
(require 'tex-site)
;;*=======================
;;* autoload style files
(setq TeX-parse-self t)
(setq-default TeX-master nil)
;; Les guillemets francais
;(setq TeX-open-quote "<<")
;(setq TeX-close-quote ">>")
(iso-accents-mode t)
(add-hook 'LaTeX-mode-hook 'font-latex)
; provoque une erreur:
;(add-hook 'LaTeX-mode-hook 'TeX-install-toolbar)
;; Pour definir correctement les sections
(setq LaTeX-section-hook
      '(LaTeX-section-heading
	LaTeX-section-title
	LaTeX-section-toc
	LaTeX-section-section
	LaTeX-section-label))
;; J'aime bien les tabulations, on ne les convertit pas en espaces...
(setq TeX-auto-untabify nil)

(add-hook 'LaTeX-mode-hook
	  (function
	   (lambda ()
	     (flyspell-mode))))

;;
;;  Recommendations Nat.
;;

;;; AUCTeX
(if (eq window-system 'x)
    (require 'font-latex))

;?(autoload 'tex-mode "LaTeX-mode" "LaTeX mode" t)
(autoload 'tex-mode "latex" "LaTeX mode" t)
(setq TeX-electric-escape t
      TeX-parse-self t             ; Enable parse on load
      TeX-auto-save nil)  ; parse on save (will create /auto subdir)
(setq-default TeX-master 'nil)     ;query for master file

(add-hook 'LaTeX-mode-hook
	  (function
	   (lambda ()
	     (setq ispellparser 'tex
		   TeX-debug-bad-boxes nil
		   enable-local-variables 't)
	     (define-key LaTeX-mode-map "\C-x\C-S"
	       (function (lambda ()
			   (interactive) (save-some-buffers 't))))
;;; (define-key LaTeX-mode-map [(shift f1)]
;;; "\C-x\C-S\C-c\C-cBibTeX\C-m")
	     (define-key LaTeX-mode-map [(shift f9)]
	       "\C-x\C-S\C-c\C-cCheck\C-m\C-c\C-l")
	     (define-key LaTeX-mode-map [f1]
	       "\C-x\C-S\C-c\C-cLaTeX\C-m\C-c\C-l")
	     (define-key LaTeX-mode-map [(shift f7)]
	       "\C-x\C-S\C-c\C-cView\C-m\C-m")
	     (local-set-key [(control !)] 'TeX-next-error)
	     (local-set-key [(control /)] 'TeX-previous-error)
	     (local-set-key [(control a)] 'TeX-insert-macro)
;;; (define-key LaTeX-mode-map "\C-m" 'reindent-then-newline-and-indent)
	     (font-lock-mode 1)
	     (auto-fill-mode 1)
	     )))