From b720164466434a80c4675f30bd54f6b28f365d1b Mon Sep 17 00:00:00 2001 From: Romain Francoise Date: Mon, 19 Sep 2005 10:13:34 +0000 Subject: [PATCH] =?utf8?q?(dired-handle-overwrite):=20Don't=20use=20`forma?= =?utf8?q?t'=20here.=20=20The=20prompt=20is=20formatted=20later.=20=20From?= =?utf8?q?=20Johan=20Bockg=EF=BF=BD=20.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- lisp/ChangeLog | 5 +++++ lisp/dired-aux.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d0057f55cb4..a2d6384077d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-09-19 Johan Bockg,Ae(Brd + + * dired-aux.el (dired-handle-overwrite): Don't use `format' here. + The prompt is formatted later. + 2005-09-19 David Ponce * tree-widget.el (tree-widget-value-create): Save the converted diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 17e61792d33..6426c6daf58 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -1126,8 +1126,8 @@ Special value `always' suppresses confirmation." (setq backup (car (find-backup-file-name to))) (or (eq 'always dired-backup-overwrite) (dired-query 'overwrite-backup-query - (format "Make backup for existing file `%s'? " - to)))) + "Make backup for existing file `%s'? " + to))) (progn (rename-file to backup 0) ; confirm overwrite of old backup (dired-relist-entry backup))))) -- 2.39.5