mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(dired-overwrite-confirmed): Supply initial value.

Browse Source
This commit is contained in:
Chong Yidong 2008-04-06 00:03:38 +00:00
parent 6bf99ef37a
commit bbfe23084e
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/dired-aux.el
View File

@ -1179,23 +1179,22 @@ Special value `always' suppresses confirmation."
(other :tag "ask" t))
:group 'dired)
(defvar dired-overwrite-confirmed)
(defvar dired-overwrite-confirmed nil)
(defun dired-handle-overwrite (to)
;; Save old version of file TO that is to be overwritten.
;; `dired-overwrite-confirmed' and `overwrite-backup-query' are fluid vars
;; from dired-create-files.
(let (backup)
(if (and dired-backup-overwrite
dired-overwrite-confirmed
(setq backup (car (find-backup-file-name to)))
(or (eq 'always dired-backup-overwrite)
(dired-query 'overwrite-backup-query
"Make backup for existing file `%s'? "
to)))
(progn
(rename-file to backup 0) ; confirm overwrite of old backup
(dired-relist-entry backup)))))
(when (and dired-backup-overwrite
dired-overwrite-confirmed
(setq backup (car (find-backup-file-name to)))
(or (eq 'always dired-backup-overwrite)
(dired-query 'overwrite-backup-query
"Make backup for existing file `%s'? "
to)))
(rename-file to backup 0) ; confirm overwrite of old backup
(dired-relist-entry backup))))
;;;###autoload
(defun dired-copy-file (from to ok-flag)