1126 |
(setq backup (car (find-backup-file-name to))) |
(setq backup (car (find-backup-file-name to))) |
1127 |
(or (eq 'always dired-backup-overwrite) |
(or (eq 'always dired-backup-overwrite) |
1128 |
(dired-query 'overwrite-backup-query |
(dired-query 'overwrite-backup-query |
1129 |
(format "Make backup for existing file `%s'? " |
"Make backup for existing file `%s'? " |
1130 |
to)))) |
to))) |
1131 |
(progn |
(progn |
1132 |
(rename-file to backup 0) ; confirm overwrite of old backup |
(rename-file to backup 0) ; confirm overwrite of old backup |
1133 |
(dired-relist-entry backup))))) |
(dired-relist-entry backup))))) |