From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 8 Feb 2022 06:33:24 +0000 (+0100)
Subject: Make exit from text-scale-adjust less confusing
X-Git-Tag: emacs-29.0.90~2438
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a4d40a32ccea3ce95300797c8d5032fef5d1f82c;p=emacs.git

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 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.")