summaryrefslogtreecommitdiff
path: root/lisp/printing.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/printing.el')
-rw-r--r--lisp/printing.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/printing.el b/lisp/printing.el
index 86d569a6ac6..8ad56f413e2 100644
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -5542,8 +5542,8 @@ If menu binding was not done, calls `pr-menu-bind'."
((file-exists-p res)
(ding)
(setq prompt "exists")
- (not (y-or-n-p (format "File `%s' exists; overwrite? "
- res))))
+ (not (y-or-n-p (format-message
+ "File `%s' exists; overwrite? " res))))
(t nil))
(setq res (read-file-name
(format "File %s; PostScript file: " prompt)
@@ -6540,8 +6540,8 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order."
((or (not (file-exists-p pr-i-out-file))
pr-i-answer-yes
(setq pr-i-answer-yes
- (y-or-n-p (format "File `%s' exists; overwrite? "
- pr-i-out-file))))
+ (y-or-n-p (format-message "File `%s' exists; overwrite? "
+ pr-i-out-file))))
pr-i-out-file)
(t
(error "File already exists"))))