Set extra support file policies earlier in init file.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Sun, 03 Jan 2021 12:52:20 +0200
changeset 1691 e09737722983
parent 1690 66790aade06e
child 1692 d627cd09b5e3
Set extra support file policies earlier in init file.
.emacs-my
--- a/.emacs-my	Sat Jan 02 23:35:40 2021 +0200
+++ b/.emacs-my	Sun Jan 03 12:52:20 2021 +0200
@@ -95,6 +95,39 @@
 ;; (setq global-auto-revert-mode 1)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "lockfile")
+
+;; (info "(elisp) File Locks")
+
+;; Disable stupid file locking. It breaks editing WSL files from Cygwin Emacs.
+;; https://emacs.stackexchange.com/questions/61962/what-is-interlocking-about
+;; https://cygwin.com/pipermail/cygwin/2020-November/246887.html
+(setq create-lockfiles nil)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "backuping")
+
+(setq
+ make-backup-files t
+ ;; In other case (by renaming) you loose original file creation date.
+ backup-by-copying t
+ backup-directory-alist '(("." . "~/.emacs.d/.backup")) ; don't litter my fs tree
+ delete-old-versions t                         ; delete excess backup versions silently
+ kept-old-versions 1                           ; store first original version
+ kept-new-versions 3                           ; store last 3 version
+ version-control t)                            ; use versioned backups
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "auto save")
+
+(setq auto-save-default t)
+;; If nil autosave to different than original to buffer file.
+(setq auto-save-visited-file-name nil)
+(setq auto-save-interval 300)
+;; Note: if you kill unsaved file auto save file not deleted.
+(setq delete-auto-save-files t)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "debugging")
 
 ;; Shut off message buffer by setting nil.
@@ -3829,34 +3862,6 @@
        (json-pretty-print-buffer)))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(message "backuping")
-
-(setq
- make-backup-files t
- ;; In other case (by renaming) you loose original file creation date.
- backup-by-copying t
- backup-directory-alist '(("." . "~/.emacs.d/.backup")) ; don't litter my fs tree
- delete-old-versions t                         ; delete excess backup versions silently
- kept-old-versions 1                           ; store first original version
- kept-new-versions 3                           ; store last 3 version
- version-control t)                            ; use versioned backups
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(message "auto save")
-
-;; Disable stupid file locking. It breaks editing WSL files from Cygwin Emacs.
-;; https://emacs.stackexchange.com/questions/61962/what-is-interlocking-about
-;; https://cygwin.com/pipermail/cygwin/2020-November/246887.html
-(setq create-lockfiles nil)
-
-(setq auto-save-default t)
-;; If nil autosave to different than original to buffer file.
-(setq auto-save-visited-file-name nil)
-(setq auto-save-interval 300)
-;; Note: if you kill unsaved file auto save file not deleted.
-(setq delete-auto-save-files t)
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "desktop")
 
 ;; Save and restore my buffers every time.