* lisp/net/tramp-cache.el (top): Use `message' but `format-message'.

diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el
index 8f60ac401f15ea41dc201f965773a72f5f99eba5..bfcfe158281ab93246ab959d940bb6cd486b695a 100644 (file)
--- a/lisp/net/tramp-cache.el
+++ b/lisp/net/tramp-cache.el
@@ -440,8 +440,8 @@ for all methods.  Resulting data are derived from connection history."
      (clrhash tramp-cache-data))
     (error
      ;; File is corrupted.
-     (format-message "Tramp persistency file `%s' is corrupted: %s"
-                    tramp-persistency-file-name (error-message-string err))
+     (message "Tramp persistency file `%s' is corrupted: %s"
+             tramp-persistency-file-name (error-message-string err))
      (clrhash tramp-cache-data))))
 
 (add-hook 'tramp-unload-hook