(global-set-key [delete] 'delete-char)
(global-set-key [kp-delete] 'delete-char)

(add-hook 'c-mode-common-hook
           (lambda ()
             (c-set-style "linux")))

(set-background-color "lightblue")
(set-foreground-color "black") 
(set-cursor-color "darkred")

(toggle-global-lazy-font-lock-mode)


;; Rueda de raton

(defcustom mouse-wheel-distance 10
  "*Number of lines, maximum, to scroll the window when you move the mouse =
  wheel."
;;    :type      integer
;;    :group Mouse)
)
;--------------------------

(defun mouse-wheelscroll-down ()
   " A function to scroll up or down in response to the mouse wheel."
   (interactive)
   (scroll-down
   (min mouse-wheel-distance
           (max 1 (- (window-height)
                     next-screen-context-lines)))))
;--------------------------
(defun mouse-wheelscroll-up ()
  " A function to scroll up or down in response to the mouse wheel."
  (interactive)
  (scroll-up
        (min mouse-wheel-distance
           (max 1 (- (window-height)
                next-screen-context-lines)))))
(global-set-key [mouse-4] (function mouse-wheelscroll-down))
(global-set-key [mouse-5] (function mouse-wheelscroll-up))


(global-set-key "\C-cT" 'recode-texte)
     
(defun recode-texte (flag)
  (interactive "P")
  (shell-command-on-region
   (region-beginning) (region-end)
   (concat "recode " (if flag "utf8" "..utf8")) t)
  (exchange-point-and-mark))


(column-number-mode nil)

;;(require 'preview)

(add-hook 'text-mode-hook 'turn-on-auto-fill)

(add-hook 'shell-mode-hook
          (function (lambda () (setq font-lock-defaults nil))))

(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.
 '(all-christian-calendar-holidays t t)
 '(calendar-date-display-form (quote ((if dayname (concat dayname ", ")) day " de " monthname " de " year)))
 '(calendar-week-start-day 1 t)
 '(case-fold-search t)
 '(christian-holidays (quote ((if all-christian-calendar-holidays (holiday-fixed 1 6 "Epifanía")) (holiday-easter-etc) (if all-christian-calendar-holidays (holiday-greek-orthodox-easter)) (if all-christian-calendar-holidays (holiday-fixed 8 15 "Asunción")) (if all-christian-calendar-holidays (holiday-advent)) (holiday-fixed 12 25 "Navidad") (if all-christian-calendar-holidays (holiday-julian 12 25 "Eastern Orthodox Christmas")))) t)
 '(european-calendar-style t t)
 '(global-font-lock-mode t nil (font-lock))
 '(mark-even-if-inactive t)
 '(mouse-sel-mode t nil (mouse-sel))
 '(preview-prefer-TeX-bb t)
 '(ps-paper-type (quote a4) t)
 '(show-paren-mode t nil (paren))
 '(spell-command "aspell -a")
 '(standard-indent 8)
 '(text-mode-hook (quote (turn-on-auto-fill text-mode-hook-identify)))
 '(transient-mark-mode t)
 '(view-calendar-holidays-initially t t))

(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 (:stipple nil :background "lightblue" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 105 :width normal :family "jmk-neep")))))