Re: Backup Blacklist

["Juanma Barranquero" <lekktu@gmail.com>]

On 1/4/07, Matthew Flaschen <matthew.flaschen@gatech.edu> wrote:

> Thanks for all your patience and help.

It's been fun ;)

> (even
> though I haven't finished testing the package).

When you test it, use this version of `bex-enable-predicate':

(defun bex-enable-predicate (file)
  "Alternate `backup-enable-predicate' function that excludes from
backups those files registered with `bex-exclude-files' or
`bex-exclude-file-from-backup'."
  (if bex-previous-backup-predicate
      (let ((regexp (get 'backup-exclude :regexp)))
        (if (and regexp
                 (let ((case-fold-search bex-case-fold-search))
                   (string-match regexp (expand-file-name file))))
            nil
          (funcall bex-previous-backup-predicate file)))
    nil))

It's a small change to support the case that `backup-enable-predicate'
is nil (which is uncommon, but possible). Note that in this case, no
file is ever backed up (because backup-exclude can only exclude files,
and there's no function ever returning t for any of them).

                    /L/e/k/t/u