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