![]() ,bjm/backup-trash-dir ) ) ) is file too large? ( if (<= (buffer-size ) bjm/backup-file-size-limit ) ( progn (message "Made per session backup of %s" (buffer-name ) ) (backup-buffer ) ) (message "WARNING: File %s too large to backup - increase value of bjm/backup-file-size-limit" (buffer-name ) ) ) ) ) Make a "per save" backup on each save. ![]() , (expand-file-name "per-session" bjm/backup-location ) ) ) ) (kept-new-versions 3 ) ) add trash dir if needed ( if bjm/backup-exclude-regexp ( when (not buffer-backed-up ) Override the default parameters for per-session backups. Files larger than ` bjm/backup-file-size-limit ' are not backed up." Make a special "per session" backup at the first save of each emacs session. Files whose names match the REGEXP in ` bjm/backup-exclude-regexp ' are copied to ` bjm/backup-trash-dir ' instead of the normal backup directory. Files are backed up to ` bjm/backup-location ' in subdirectories \"per-session\" once per Emacs session, and \"per-save\" every time a file is saved. ,bjm/backup-trash-dir ) ) ) ( defun bjm/backup-every-save () "Backup files every time they are saved. (add-to-list 'backup-directory-alist ` (,bjm/backup-exclude-regexp. , (expand-file-name "per-save" bjm/backup-location ) ) ) ) add trash dir if needed ( if bjm/backup-exclude-regexp backtick and comma allow evaluation of expression when forming list (setq backup-directory-alist Set to nil to disable this." ) Default and per-save backups go here: N.B. Files whose full name matches this regexp are backed up to ` bjm/backup-trash-dir '. Default is 5 MB" ) ( defvar bjm/backup-location (expand-file-name "~/emacs-backups" ) "Base directory for backup files." ) ( defvar bjm/backup-trash-dir (expand-file-name "~/.Trash" ) "Directory for unwanted backups." ) ( defvar bjm/backup-exclude-regexp "\\" "Don't back up files matching this regexp. If a file is greater than this size, don't make a backup of it. Vc-make-backup-files t ) backup version controlled files backup every save ( defvar bjm/backup-file-size-limit (* 5 1024 1024 ) "Maximum size of a file (in bytes) that should be copied at each savepoint. Kept-old-versions 0 don't bother with old versionsĭelete-old-versions t don't ask about deleting old versions Kept-new-versions 10 keep 10 latest versions ![]() ![]() backup settings (setqīackup-by-copying t don't clobber symlinks ![]()
0 Comments
Leave a Reply. |