(set-visited-file-name): Use `format', not `message', in `y-or-n-p' call.

diff --git a/lisp/files.el b/lisp/files.el
index 9228e5476423b5e1d629e0bd5a21276987d11b89..a84844810cb9f42f4bb1323220ece9e3ff2151da 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1533,7 +1533,7 @@ the various files."
                           (not (eq major-mode 'hexl-mode)))
                  (if (buffer-modified-p)
                      (if (y-or-n-p
-                          (format 
+                          (format
                            (if rawfile
                                "The file %s is already visited normally,
 and you have edited the buffer.  Now you have asked to visit it literally,
@@ -1553,7 +1553,7 @@ Do you want to save the file, and visit it normally instead? ")
                            (find-file-noselect-1 buf filename nowarn
                                                  rawfile truename number))
                        (if (y-or-n-p
-                            (format 
+                            (format
                              (if rawfile
                                  "\
 Do you want to discard your changes, and visit the file literally now? "
@@ -1563,8 +1563,8 @@ Do you want to discard your changes, and visit the file normally now? ")))
                                                  rawfile truename number)
                          (error (if rawfile "File already visited non-literally"
                                   "File already visited literally"))))
-                   (if (y-or-n-p 
-                        (format 
+                   (if (y-or-n-p
+                        (format
                          (if rawfile
                              "The file %s is already visited normally.
 You have asked to visit it literally,
@@ -2820,8 +2820,8 @@ the old visited file has been renamed to the new name FILENAME."
     (let ((buffer (and filename (find-buffer-visiting filename))))
       (and buffer (not (eq buffer (current-buffer)))
           (not no-query)
-          (not (y-or-n-p (message "A buffer is visiting %s; proceed? "
-                                  filename)))
+          (not (y-or-n-p (format "A buffer is visiting %s; proceed? "
+                                  filename)))
           (error "Aborted")))
     (or (equal filename buffer-file-name)
        (progn