Emacs
Last changed: 2005-12-27 [16:45]
Content:
General tips and tricks for emacs
|
Table of contents |
Force backups
Following a hint here I downloaded backup-each.save.el and fixed
the definition of backup-each-save (since it referenced file-remote-p,
a variable my emacs knows nothing about).
(defun backup-each-save ()
(let ((bfn (buffer-file-name)))
(when (and (funcall backup-each-save-filter-function bfn)
(or (not backup-each-save-size-limit)
(<= (buffer-size) backup-each-save-size-limit)))
(copy-file bfn (backup-each-save-compute-location bfn) t))))
The following configuration activates the forced backups:
(require 'backup-each-save)
(add-hook 'after-save-hook 'backup-each-save)
(defun backup-each-save-filter (filename)
(let ((ignored-filenames
'("^/tmp" "semantic.cache$" "\\.emacs-places$"
"\\.recentf$" ".newsrc\\(\\.eld\\)?"))
(matched-ignored-filename nil))
(mapc
(lambda (x)
(when (string-match x filename)
(setq matched-ignored-filename t)))
ignored-filenames)
(not matched-ignored-filename)))
(setq backup-each-save-filter-function 'backup-each-save-filter)
Links
|
Back to