equal
deleted
inserted
replaced
309 ;; STANDARD LIBRARIES |
309 ;; STANDARD LIBRARIES |
310 |
310 |
311 (require 'jka-compr) ; Automatic decompression, hooks for tar-mode. |
311 (require 'jka-compr) ; Automatic decompression, hooks for tar-mode. |
312 (if (fboundp 'auto-compression-mode) |
312 (if (fboundp 'auto-compression-mode) |
313 (auto-compression-mode 1)) |
313 (auto-compression-mode 1)) |
314 |
|
315 ;; ====================================================================== |
|
316 ;; Save |
|
317 (setq auto-save-default nil) |
|
318 |
314 |
319 ;; ---------------------------------------------------------------------- |
315 ;; ---------------------------------------------------------------------- |
320 ;; *Recentf* |
316 ;; *Recentf* |
321 |
317 |
322 (require 'recentf) |
318 (require 'recentf) |
1035 ;;установка режимов работы курсора через CUA |
1031 ;;установка режимов работы курсора через CUA |
1036 ;(setq cua-normal-cursor-color "black") |
1032 ;(setq cua-normal-cursor-color "black") |
1037 ;(setq cua-overwrite-cursor-color "red") |
1033 ;(setq cua-overwrite-cursor-color "red") |
1038 ;(setq cua-read-only-cursor-color "green") |
1034 ;(setq cua-read-only-cursor-color "green") |
1039 |
1035 |
1040 |
|
1041 ;; ====================================================================== |
1036 ;; ====================================================================== |
1042 ;; Backup |
1037 ;; Backup |
1043 |
1038 |
1044 (setq |
1039 (setq |
1045 backup-by-copying t ; don't clobber symlinks |
1040 backup-by-copying t ; don't clobber symlinks |
1047 delete-old-versions t ; delete excess backup versions silently |
1042 delete-old-versions t ; delete excess backup versions silently |
1048 kept-old-versions 1 ; store first original version |
1043 kept-old-versions 1 ; store first original version |
1049 kept-new-versions 3 ; store last 3 version |
1044 kept-new-versions 3 ; store last 3 version |
1050 version-control t) ; use versioned backups |
1045 version-control t) ; use versioned backups |
1051 |
1046 |
|
1047 ;; ====================================================================== |
|
1048 ;; auto save |
|
1049 |
|
1050 (setq auto-save-default t) |
|
1051 ;; If nil autosave to different than original to buffer file. |
|
1052 (setq auto-save-visited-file-name nil) |
|
1053 ;; Note: if you kill unsaved file auto save file not deleted. |
|
1054 (setq delete-auto-save-files t) |
1052 |
1055 |
1053 ;; ====================================================================== |
1056 ;; ====================================================================== |
1054 ;; Setup user info. |
1057 ;; Setup user info. |
1055 |
1058 |
1056 (cd "~/") |
1059 (cd "~/") |