;; Algumas opções úteis para o Emacs
;; Sandro Marcell (sandro_marcell@yahoo.com.br

;; As opções abaixo ativarão:
;; - Syntax highlighting:
;; - Realce de padrões
;; - Modo case-sensitive
;; - Quebra de linhas
;; - Modo debug para erros.

(custom-set-variables
 '(case-fold-search t)
 '(current-language-environment "Latin-1")
 '(debug-on-error t)
 '(default-input-method "latin-1-prefix")
 '(global-font-lock-mode t nil (font-lock))
 '(show-paren-mode t nil (paren))
 '(text-mode-hook (quote (turn-on-auto-fill text-mode-hook-identify)))
 '(transient-mark-mode t))
(custom-set-faces
)

;; As opções abaixo ativarão:
;; - A rodinha do mouse
;; - Sem cópias em backup

(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)

(defun up-one () (interactive) (scroll-up 1))
(defun down-one () (interactive) (scroll-down 1))
(global-set-key [S-mouse-4] 'down-one)
(global-set-key [S-mouse-5] 'up-one)

(defun up-a-lot () (interactive) (scroll-up))
(defun down-a-lot () (interactive) (scroll-down))
(global-set-key [C-mouse-4] 'down-a-lot)
(global-set-key [C-mouse-5] 'up-a-lot) 

(setq make-backup-files nil)