.emacs-my
changeset 75 cd964a1d58b9
parent 74 55deb80345ab
child 76 3b9b47be4951
equal deleted inserted replaced
74:55deb80345ab 75:cd964a1d58b9
   215 (prefer-coding-system 'koi8-r-dos)
   215 (prefer-coding-system 'koi8-r-dos)
   216 (prefer-coding-system 'utf-16-le)
   216 (prefer-coding-system 'utf-16-le)
   217 (prefer-coding-system 'cp866-dos)
   217 (prefer-coding-system 'cp866-dos)
   218 
   218 
   219 (modify-coding-system-alist 'file "\\.el" 'iso-2022-7bit)
   219 (modify-coding-system-alist 'file "\\.el" 'iso-2022-7bit)
   220 (if (equal window-system 'w32)
   220 (if (equal window-system 'w32)          ; also (string-equal system-type "windows-nt")
   221     (progn
   221     (progn
   222       (set-selection-coding-system   'cp1251)
   222       (set-selection-coding-system   'cp1251)
   223       (prefer-coding-system 'utf-8-unix)
   223       (prefer-coding-system 'utf-8-unix)
   224       (prefer-coding-system 'cp1251-dos)
   224       (prefer-coding-system 'cp1251-dos)
   225       (modify-coding-system-alist 'file "\\.[ch]$" 'cp1251)
   225       (modify-coding-system-alist 'file "\\.[ch]$" 'cp1251)
   919 
   919 
   920 
   920 
   921 ;; ======================================================================
   921 ;; ======================================================================
   922 ;; Backup
   922 ;; Backup
   923 
   923 
   924 ;; (setq
   924 (setq
   925 ;;    backup-by-copying t      ; don't clobber symlinks
   925  ;; backup-by-copying t                           ; don't clobber symlinks
   926 ;;    backup-directory-alist
   926  backup-directory-alist '(("." . "~/.backup")) ; don't litter my fs tree
   927 ;;     '(("." . "~/backup"))    ; don't litter my fs tree
   927  ;; delete-old-versions t                         ; удаление промежуточных бэкапов
   928 ;;    delete-old-versions t
   928  kept-old-versions 1                           ; store first original version
   929 ;;    kept-new-versions 6
   929  kept-new-versions 3                           ; store last 3 version
   930 ;;    kept-old-versions 2
   930  version-control t)                            ; use versioned backups
   931 ;;    version-control t)       ; use versioned backups
       
   932 ;(setq version-control t);нумерованный бэкап - 2 первых и 2 последних
       
   933 ;(setq delete-old-versions t);удаление промежуточных бэкапов
       
   934 
   931 
   935 
   932 
   936 ;; ======================================================================
   933 ;; ======================================================================
   937 ;; Setup user info.
   934 ;; Setup user info.
   938 
   935