; pour les caractères européens iso-8859-1 :
(standard-display-european 1)
(set-input-mode nil nil 1)
(set-language-environment "Latin-1")

; fonctionnement correct de la touche backspace
(define-key global-map "\C-x?" 'help-for-help)
(define-key global-map "\C-h" 'backward-delete-char)

; Souris à molette (ne marche pas?)
;(setq mouse-wheel-mode t) <-- commande du nouvel emacs - ça ne marche pas ???
(defun up-slightly () (interactive) (scroll-up 5))
(defun down-slightly () (interactive) (scroll-down 5))
(global-set-key [mouse-4] 'down-slightly)
(global-set-key [mouse-5] 'up-slightly)


; Affiche les numéros de colonne
(column-number-mode 1)

; En France les semaines commencent le lundi
(setq calendar-week-start-day 1)

; Marque les entrées d'agenda dans le calendrier
;(mark-diary-entries)

; Affiche les entrées de calendrier
;(diary)

; Affiche le calendrier
;(calendar)
;(mark-diary-entries)
;(print-diary-entries)


; sélection de type "classique"
; (transient-mark-mode t) ; --> automatique avec pc-selection-mode
(pc-selection-mode)   ; grow selection with Shift
(pc-bindings-mode)    ; home / end assignment

; font-lock automatique
(global-font-lock-mode t)

; sélection de tout le buffer avec C-a
(global-set-key "\C-a" 'mark-whole-buffer)


;; append-tuareg.el - Tuareg quick installation: Append this file to .emacs.

(setq auto-mode-alist (cons '("\\.ml\\w?" . tuareg-mode) auto-mode-alist))
(autoload 'tuareg-mode "tuareg" "Major mode for editing Caml code" t)
(autoload 'camldebug "camldebug" "Run the Caml debugger" t)

(if (and (boundp 'window-system) window-system)
    (if (string-match "XEmacs" emacs-version)
	(require 'sym-lock)
      (require 'font-lock)))


;;;;;;; PROLOG ;;;;;;;;;;;
;;(setq load-path (cons "/usr/local/lib/sicstus3" load-path))
;(autoload 'run-prolog "prolog" "Start a Prolog sub-process." t)
;(autoload 'prolog-mode "prolog" "Major mode for editing Prolog programs." t)
;(setq prolog-system 'swi)
;(setq auto-mode-alist (append '(("\\.prolog$" . prolog-mode))
;                               auto-mode-alist))



;;;;; CHOSES A COMPLETER ;;;;;;;;;;;;;;

(setq compile-command "make" )
(global-set-key [f2] 'save-buffer)
(global-set-key [f3] 'find-file)
(global-set-key [f7] 'compile)
(global-set-key [(control f7)] 'next-error)
(global-set-key [f10] 'gud-step)
(global-set-key [f8] 'gud-break)
(global-set-key "\C-M" 'newline-and-indent)


;; Chargement automatique de trucs dans mon ~/home
;(add-to-list 'load-path "~/emacs/lisp/")