.emacs

My .emacs file is usually :

;; .emacs

;;; uncomment this line to disable loading of "default.el" at startup
(setq inhibit-default-init 1)

;; Set your term type to vt100
; (load "term/vt100") 
;; To change the font size under X.
; (set-default-font "9x15")


(setq inhibit-splash-screen t)

;; Remove toobar
(tool-bar-mode 0)
;(menu-bar-mode nil)

;; Color feedback
(global-font-lock-mode t)

;; Visual feedback on selections
(setq transient-mark-mode t)

;; I always want a newline at the end of files
(setq require-final-newline t)

;; And please, put me the cursor where I was
(load-library "saveplace")
(setq-default save-place t)

;; When I'm wrinting text, cut my lines (default : 70)
(add-hook 'text-mode-hook 'turn-on-auto-fill)
; (setq fill-column 80)

;; Disable anoying audio-beep
(setq visible-bell t)

;; Support Wheel Mouse Scrolling
(mouse-wheel-mode t)

;; Kill the whole line (including '\n') when the cursor in col 0
;(setq kill-whole-line t)

;; Window title
(setq frame-title-format '(buffer-file-name "%b [%f]" "%b"))

;; Show line-number and column-number in the mode line
(line-number-mode t)
(column-number-mode t)

;; See current buffer's path in the mode line
(set-default 'mode-line-buffer-identification
             '(buffer-file-name ("%f") ("%b")))


;; Aliases
;(define-key global-map "\C-Menu" 'mouse-buffer-menu)
(define-key global-map "\M-g"   'goto-line)
(define-key global-map "\M-r"   're-search-forward)


;; Modes d'accentuation é
;(setq iso-accents-mode t)
;(iso-accents-mode t)
;(iso-accents-customize "french")
;(iso-accents-customize)


;; Licence 3
(setq auto-mode-alist
      (cons '("\\.hbk\\'" .tex-mode)
        (cons '("\\.bk\\'" .tex-mode)
          (cons '("\\.a[d1-9][bs]\\'" ada-mode)
            auto-mode-alist))))



(setq load-path (append load-path (list "~/.emacs.d/")))

;; Promela mode (M2)
(autoload 'promela-mode "promela-mode" "PROMELA mode" nil t)
(setq auto-mode-alist
      (append
       (list (cons "\\.promela$"  'promela-mode)
         (cons "\\.spin$"     'promela-mode)
         (cons "\\.pml$"      'promela-mode)
         ;; (cons "\\.other-extensions$"     'promela-mode)
         (cons "\\.php5$"     'php-mode)
         )
       auto-mode-alist))

;; Lua editing mode
(setq auto-mode-alist (cons '("\\.lua$" . lua-mode) auto-mode-alist))
(autoload 'lua-mode "lua-mode" "Lua editing mode." t)


(setq load-path (append load-path (list "~/.emacs.d/")))


;; ;; MetaScribe Files : projet RAAR,
;; (load "/home/cm/.emacs.d/metascribe-msf-mode.el")
;; (load "/home/cm/.emacs.d/metascribe-msm-mode.el")
;; (load "/home/cm/.emacs.d/metascribe-mssm-mode.el")
;; (load "/home/cm/.emacs.d/metascribe-msst-mode.el")


(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(case-fold-search t)
 '(current-language-environment "UTF-8")
 '(default-input-method "rfc1345")
 '(global-font-lock-mode t nil (font-lock))
 '(inhibit-startup-screen t)
 '(save-place t nil (saveplace))
 '(text-mode-hook (quote (turn-on-auto-fill text-mode-hook-identify)))
 '(transient-mark-mode t))


(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(default ((t (:inherit nil :stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))))

;;(add-to-list 'load-path "/path/to/highlight-symbol")




;; Raccourcis claviers
(global-set-key [f4] 'goto-line)
(global-set-key [f5] 'compile)
(global-set-key [f6] 'comment-region)
(global-set-key [f7] 'uncomment-region)
(global-set-key [f8] 'flyspell-mode)

;; (require 'highlight-symbol)
;; (global-set-key [(control f3)] 'highlight-symbol-at-point)
;; (global-set-key [f3] 'highlight-symbol-next)
;; (global-set-key [(shift f3)] 'highlight-symbol-prev)
;; (global-set-key [(meta f3)] 'highlight-symbol-prev)