Make exit from text-scale-adjust less confusing

* lisp/face-remap.el (text-scale-adjust): Clear the prompt after
exiting (bug#25978).

diff --git a/lisp/face-remap.el b/lisp/face-remap.el
index 3675ea14b4c95e29ed91deca6352ce75c4a13c7e..34cd0306525f9494bce9a7bd14ac22d19a45af69 100644 (file)
--- 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.")