Set extra support file policies earlier in init file.
--- 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.