(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.
 '(cua-mode t)
 '(current-language-environment "Spanish")
 '(default-input-method "spanish-keyboard"))
(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.
 )
;; Mapea backspace [delete-backward-char] a C-h
;(define-key key-translation-map [?\C-?] [?\C-h])

;; map M-backspace [backward-kill-word] to M-h
(define-key key-translation-map [?\M-\d] [?\M-h])

;; map C-h to backspace
(define-key key-translation-map [?\C-h] [?\C-?])

;; map M-h [mark-paragraph] to M-backspace
(define-key key-translation-map [?\M-h] [?\M-\d])

;; tip: Tab is available as C-i
;;      RET is available as C-j or C-m
;;      ESC is available as C-[
    (if (not window-system) (normal-erase-is-backspace-mode 0))

;; Configuración de anthk
(prefer-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(setq-default buffer-file-coding-system 'utf-8)
(setq default-buffer-file-coding-system 'utf-8)

;;Configura el line-wrap
; Configura linewrap en caracteres
;(setq word-wrap t)
;configura linewrap a palabras
(setq-default word-wrap t)
(set-display-table-slot standard-display-table 'wrap ?\ )

(setq backup-directory-alist '(("." . "~/.emacs.d/backup"))
  backup-by-copying t    ; Don't delink hardlinks
  version-control t      ; Usar números de versión en los respaldos
  delete-old-versions t  ; Borrar respaldos excesivos automáticamente
  kept-new-versions 20   ; Cuantas veresiones de respaldo nuevas mantener
  kept-old-versions 5    ; y cuantas de las versiones viejas mantener
  )