91 (global-set-key [f5] 'revert-buffer) |
91 (global-set-key [f5] 'revert-buffer) |
92 (setq revert-without-query (quote (".*"))) |
92 (setq revert-without-query (quote (".*"))) |
93 (setq auto-revert-interval 2) |
93 (setq auto-revert-interval 2) |
94 |
94 |
95 ;; (setq global-auto-revert-mode 1) |
95 ;; (setq global-auto-revert-mode 1) |
|
96 |
|
97 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
98 (message "lockfile") |
|
99 |
|
100 ;; (info "(elisp) File Locks") |
|
101 |
|
102 ;; Disable stupid file locking. It breaks editing WSL files from Cygwin Emacs. |
|
103 ;; https://emacs.stackexchange.com/questions/61962/what-is-interlocking-about |
|
104 ;; https://cygwin.com/pipermail/cygwin/2020-November/246887.html |
|
105 (setq create-lockfiles nil) |
|
106 |
|
107 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
108 (message "backuping") |
|
109 |
|
110 (setq |
|
111 make-backup-files t |
|
112 ;; In other case (by renaming) you loose original file creation date. |
|
113 backup-by-copying t |
|
114 backup-directory-alist '(("." . "~/.emacs.d/.backup")) ; don't litter my fs tree |
|
115 delete-old-versions t ; delete excess backup versions silently |
|
116 kept-old-versions 1 ; store first original version |
|
117 kept-new-versions 3 ; store last 3 version |
|
118 version-control t) ; use versioned backups |
|
119 |
|
120 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
121 (message "auto save") |
|
122 |
|
123 (setq auto-save-default t) |
|
124 ;; If nil autosave to different than original to buffer file. |
|
125 (setq auto-save-visited-file-name nil) |
|
126 (setq auto-save-interval 300) |
|
127 ;; Note: if you kill unsaved file auto save file not deleted. |
|
128 (setq delete-auto-save-files t) |
96 |
129 |
97 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
130 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
98 (message "debugging") |
131 (message "debugging") |
99 |
132 |
100 ;; Shut off message buffer by setting nil. |
133 ;; Shut off message buffer by setting nil. |
3827 (my-nxml-pp)) |
3860 (my-nxml-pp)) |
3828 ((string-match "\\.json\\'" fname) |
3861 ((string-match "\\.json\\'" fname) |
3829 (json-pretty-print-buffer))))) |
3862 (json-pretty-print-buffer))))) |
3830 |
3863 |
3831 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3864 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3832 (message "backuping") |
|
3833 |
|
3834 (setq |
|
3835 make-backup-files t |
|
3836 ;; In other case (by renaming) you loose original file creation date. |
|
3837 backup-by-copying t |
|
3838 backup-directory-alist '(("." . "~/.emacs.d/.backup")) ; don't litter my fs tree |
|
3839 delete-old-versions t ; delete excess backup versions silently |
|
3840 kept-old-versions 1 ; store first original version |
|
3841 kept-new-versions 3 ; store last 3 version |
|
3842 version-control t) ; use versioned backups |
|
3843 |
|
3844 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
3845 (message "auto save") |
|
3846 |
|
3847 ;; Disable stupid file locking. It breaks editing WSL files from Cygwin Emacs. |
|
3848 ;; https://emacs.stackexchange.com/questions/61962/what-is-interlocking-about |
|
3849 ;; https://cygwin.com/pipermail/cygwin/2020-November/246887.html |
|
3850 (setq create-lockfiles nil) |
|
3851 |
|
3852 (setq auto-save-default t) |
|
3853 ;; If nil autosave to different than original to buffer file. |
|
3854 (setq auto-save-visited-file-name nil) |
|
3855 (setq auto-save-interval 300) |
|
3856 ;; Note: if you kill unsaved file auto save file not deleted. |
|
3857 (setq delete-auto-save-files t) |
|
3858 |
|
3859 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
3860 (message "desktop") |
3865 (message "desktop") |
3861 |
3866 |
3862 ;; Save and restore my buffers every time. |
3867 ;; Save and restore my buffers every time. |
3863 (require 'desktop) |
3868 (require 'desktop) |
3864 |
3869 |