apm_backup_file_p

apm_backup_file_p   path

Returns 1 if $path is a backup file, or 0 if not. We consider it a backup file if any of the following apply:

• its name begins with #
• its name is bak
• its name begins with bak and one or more non-alphanumeric characters
• its name ends with .old, .bak, or ~

Source code:

    return [regexp {(\.old|\.bak|~)$|^#|^bak([^a-zA-Z]|$)} [file tail $path]]