backup-each-save - Emacsで保存するたびに自動でバックアップ

るびきちさんのこちらの記事からです。real-auto-save.elはそこまではいらないかな、という感じです。割としょっちゅうC-x C-sを打っている気がするので。

(leaf backup-each-save
  :when (not (eq system-type 'windows-nt))
  :straight t
  :config
  ;; バックアップ先
  (setq backup-each-save-mirror-location "~/.emacs.d/backups")
  ;; バックアップファイルにつけるsuffix
  (setq backup-each-save-time-format "%y%m%d_%H%M%S")
  ;; バックアップするファイルサイズの上限
  (setq backup-each-save-size-limit 5000000)
  ;; すべてのファイルをバックアップする
  (setq backup-each-save-filter-function 'identity)
  ;; 有効化!
  (add-hook 'after-save-hook 'backup-each-save))