1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/replace.el b/lisp/replace.el
index 3cdb54f2132..26870a3a634 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1495,7 +1495,8 @@ See also `multi-occur'."
                      ;; Don't display regexp if with remaining text
                      ;; it is longer than window-width.
                      (if (> (+ (length regexp) 42) (window-width))
-                         "" (format " for ‘%s’" (query-replace-descr regexp)))))
+                         "" (format-message
+                             " for ‘%s’" (query-replace-descr regexp)))))
           (setq occur-revert-arguments (list regexp nlines bufs))
           (if (= count 0)
               (kill-buffer occur-buf)