diff --git a/lisp/face-remap.el b/lisp/face-remap.el
index 3675ea14b4c..34cd0306525 100644
--- a/lisp/face-remap.el
+++ b/lisp/face-remap.el
@@ -395,7 +395,11 @@ a top-level keymap, `text-scale-increase' or
            (dolist (key '(?- ?+ ?= ?0)) ;; = is often unshifted +.
              (define-key map (vector (append mods (list key)))
                (lambda () (interactive) (text-scale-adjust (abs inc))))))
-         map))))) ;; )
+         map)
+       nil
+       ;; Clear the prompt after exiting.
+       (lambda ()
+         (message ""))))))
 
 (defvar-local text-scale--pinch-start-scale 0
   "The text scale at the start of a pinch sequence.")