Mon fichier de conf

voici mon fichier de configuration emacs.
Pour completer ce que vous tappez dans emacs: alt+/ (soit shift+alt+:)
certain fichiers (std.el std_comment.el ido.el) qui sont mis en commentaire rajoute des fonctions assez sympa notamment ido.el. Vous les trouverez dans ma conf sur mon site, il faut les mettres dans: /usr/share/emacs/site-lisp
cette conf marche aussi sur windows.

De plus une page du wiki est consacré a emacs : http://www.ctaf.free.fr/dokuwiki/doku.php?id=programmation(...)
Les ;; sont des commentaires. Je decommente certaines sections selon mes besoins.

en esperant que se soit utile :-)
;;
;; .emacs for env in std_env
;;
;; Made by CTAF
;; Login <@epita.fr>
;;
;; Started on Sat Oct 16 12:48:04 1993 CTAF
;;

;;(load "std.el")
;;(load "std_comment.el")

;;ocaml,caml => tuareg-mode
;;lisp => ilisp
;;
;; load our
;;
;;(if (file-exists-p "~/.myemacs")
;; (load-file "~/.myemacs"))

;;ilisp mode;;;;;;;;;;;;;;;;;;;;;;;
;; (if (file-exists-p "~/ilisp")
;; (progn
;; (setq load-path (cons "~/ilisp" load-path))
;; ;;support extension file
;; (set-default 'auto-mode-alist
;; (append '(("\\.lisp$" . lisp-mode)
;; ("\\.lsp$" . lisp-mode)
;; ("\\.cl$" . lisp-mode))
;; auto-mode-alist))
;; ;;C-c evalue l'exprression sur laquel le pointeur se trouve
;; (setq lisp-mode-hook '(lambda () (require 'ilisp)
;; (local-set-key "\C-c" 'eval-defun-lisp)))
;; ;;pas de popup, scrollauto de la fenetre ilisp
;; (setq ilisp-mode-hook '(lambda ()
;; (setq lisp-no-popper t)
;; (setq comint-always-scroll t)))
;; (require 'ilisp)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(standard-display-european 1)

;;scroll ac la souris
(mouse-wheel-mode 1)

;;coloration syntaxique
(global-font-lock-mode 1)

;;virage du menu qui sert a rien
(menu-bar-mode 0)

;;virage de la toolbar qui sert a rien
(tool-bar-mode 0)

;;affiche la colonne en cour
(column-number-mode 1)
(line-number-mode 1)

;;vire le bootsplash
(setq inhibit-startup-message t)
;;(gnus-inhibit-startup-message t)

;; montre les lignes inutilises et les limites d'un buffer
(setq-default indicate-empty-lines t)

;; s'assurer que les fichiers comportent des newline finaux
;; nil n'ajoute pas de newline
;; non-nil pose la question
;; t rajoute les newlines automatiquement
(setq require-final-newline 1
mode-require-final-newline 1)


;;supprimer les fichiers de conf en quittant
;;(setq make-backup-files nil)

;;fuck yes or no
(fset 'yes-or-no-p 'y-or-n-p)
;;change le comportement de backspace
;;(normal-erase-is-backspace-mode 1)

;; Zlock handling for emacs
(defun zlock ()
(interactive)
(shell-command "zlock -immed"))
(global-set-key "\C-c\C-z" 'zlock)

;;changement de buffer ac ctrl+tab
(global-set-key [(control tab)] 'other-window)


(when (require 'ido nil t)
(ido-mode t))


;;goto line= alt+l
(global-set-key "\M-l" 'goto-line)

;;switch buffer
(iswitchb-mode 1)

;;for ocaml
(when (require 'tuareg nil t)
nil
)
;;find-file, ..
;;(ido-mode 1)

(normal-erase-is-backspace-mode 1)

;; '(current-language-environment "Latin-1")
;; '(default-input-method "latin-1-prefix")

;;TEST FOR OS TYPE
;;(cond ((eq system-type 'darwin)
;; ()
;;))

;;test si on est en graphique
(if window-system
(setq default-frame-alist
'((width . 80) (height . 30)
(cursor-color . "yellow")
(cursor-type . box)
(foreground-color . "MediumPurple2")
(background-color . "black")))

)

;;list-colors-display to display all color
; Conversion des fins de lignes du format MS-DOS au format Unix
(defun dos2unix ()
(interactive)
(goto-char (point-min))
(while (search-forward "\r" nil t)
(replace-match "")
)
)


; Conversion des fins de ligne du format Unix au format MS-DOS
(defun unix2dos ()
(interactive)
(goto-char (point-min))
(while (search-forward "\n" nil t)
(replace-match "\r\n")
)
)


(custom-set-faces
;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
;; Your init file should contain only one such instance.
'(default ((t (:background "black"
:foreground "thistle3"
:inverse-video nil
:box nil
:strike-through nil
:overline nil
:underline nil
:slant normal
:weight normal
:height 125
:width normal
:family "misc-fixed")))))
;;(custom-set-faces
;; ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
;; ;; Your init file should contain only one such instance.
;; '(default ((t (:background "black"
;; :foreground "blue"
;; :inverse-video nil
;; :box nil
;; :strike-through nil
;; :overline nil
;; :underline nil
;; :slant normal
;; :weight normal
;; :height 125
;; :width normal
;; :family "misc-fixed")))))

(custom-set-variables
;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
;; Your init file should contain only one such instance.
)