summaryrefslogtreecommitdiff
path: root/lisp/dired-aux.el
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2011-01-19 21:55:36 -0500
committerChong Yidong <cyd@stupidchicken.com>2011-01-19 21:55:36 -0500
commit9aea757bb0003d0e7679cf96a726c0d58e7c4093 (patch)
treea73c5675f42c161664a2ede764b7dca5eac03d5f /lisp/dired-aux.el
parent38ec24bf555387224ba36a7ead82d6e4d89018ed (diff)
downloademacs-9aea757bb0003d0e7679cf96a726c0d58e7c4093.tar.gz
Revert changes adding format args to yes-or-no-p and y-or-n-p.
See discussion on emacs-devel at http://lists.gnu.org/archive/html/emacs-devel/2011-01/msg00388.html * src/fns.c (Fyes_or_no_p): Revert 2011-01-07 change, removing ARGS. * lisp/subr.el (y-or-n-p): Revert 2011-01-07 change, removing ARGS. * lisp/files.el (find-alternate-file, basic-save-buffer) (basic-save-buffer-2, revert-buffer, recover-file) (kill-buffer-ask, abort-if-file-too-large) (set-visited-file-name, write-file, backup-buffer) (basic-save-buffer, save-some-buffers): * lisp/dired-aux.el (dired-compress-file): Callers changed.
Diffstat (limited to 'lisp/dired-aux.el')
-rw-r--r--lisp/dired-aux.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index e701d4342bc..93389348757 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -821,8 +821,8 @@ Otherwise, the rule is a compression rule, and compression is done with gzip.")
(let ((out-name (concat file ".gz")))
(and (or (not (file-exists-p out-name))
(y-or-n-p
- "File %s already exists. Really compress? "
- out-name))
+ (format "File %s already exists. Really compress? "
+ out-name)))
(not (dired-check-process (concat "Compressing " file)
"gzip" "-f" file))
(or (file-exists-p out-name)