(setq backup-before-writing t) (setq default-fill-column 75) (setq c-indent-level 2) (setq c-continued-statement-offset 2) (setq c-continued-brace-offset 0) (setq c-brace-offset -2) (setq c-brace-imaginary-offset 0) (setq c-argdecl-indent 2) (setq c-label-offset -2) (setq c++-empty-arglist-indent 2) (setq c++-friend-offset 0) ;; Set syntax highlighting on by default (global-font-lock-mode 1) ;;;;;;;;;;;;;;;;;;;;;;;; Mouse Wheel Control ;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; Mouse wheel: scroll up, scroll down; hold down control to do pgup/pgdn. (defun wheel-scroll-up () (lambda () (interactive) (scroll-up 2))) (defun wheel-scroll-down () (lambda () (interactive) (scroll-down 2))) (defun wheel-scroll-pgup () (lambda () (interactive) (scroll-up 20))) (defun wheel-scroll-pgdown () (lambda () (interactive) (scroll-down 20))) ;;; This does things differently if you use XEmacs as opposed to GNU Emacs (cond ((string-match "XEmacs" emacs-version) (progn (define-key global-map 'button5 (wheel-scroll-up)) (define-key global-map 'button4 (wheel-scroll-down)) (define-key global-map '(control button5) (wheel-scroll-pgup)) (define-key global-map '(control button4) (wheel-scroll-pgdown)))) (t ; FSF Emacs uses weird [bracket] keymap specifiers. (progn (define-key global-map [mouse-5] (wheel-scroll-up)) (define-key global-map [mouse-4] (wheel-scroll-down)) (define-key global-map [C-mouse-5] (wheel-scroll-pgup)) (define-key global-map [C-mouse-4] (wheel-scroll-pgdown))))) ;;;;;;;;;;;;;;;;;;;;;;;; Mouse Wheel Control ;;;;;;;;;;;;;;;;;;;;;;;;;;;;