2 (set-default-font "6x13")
3 ;;(standard-display-european t) ; affichage des caracte`res iso-latin
4 (require 'iso-insert) ; pour l'insertion de caracte`res
8 (if (string-match "XEmacs" emacs-version 0)
11 (setq-default font-lock-auto-fontify t))
12 (global-font-lock-mode t)
16 ;; Custom variables and keys
19 (setq-default auto-save-mode nil)
20 (global-set-key "\M-g" 'goto-line)
21 (setq-default indent-tabs-mode nil)
22 (setq c-basic-offset 8)
23 (global-set-key [delete] 'delete-char) ; [Del]
24 (global-set-key [home] 'beginning-of-line) ; [Home]
25 (global-set-key [end] 'end-of-line) ; [End]
29 (autoload 'promela-mode "promela-mode" "PROMELA mode" nil t)
32 (list (cons "\\.promela$" 'promela-mode)
33 (cons "\\.spin$" 'promela-mode)
34 (cons "\\.pml$" 'promela-mode)
39 (defun sd-mousewheel-scroll-up (event)
40 "Scroll window under mouse up by five lines."
42 (let ((current-window (selected-window)))
45 (select-window (posn-window (event-start event)))
47 (select-window current-window))))
49 (defun sd-mousewheel-scroll-down (event)
50 "Scroll window under mouse down by five lines."
52 (let ((current-window (selected-window)))
55 (select-window (posn-window (event-start event)))
57 (select-window current-window))))
59 (global-set-key (kbd "<mouse-5>") 'sd-mousewheel-scroll-up)
60 (global-set-key (kbd "<mouse-4>") 'sd-mousewheel-scroll-down)