]> git.eshelyaron.com Git - emacs.git/commitdiff
Make exit from text-scale-adjust less confusing
authorLars Ingebrigtsen <larsi@gnus.org>
Tue, 8 Feb 2022 06:33:24 +0000 (07:33 +0100)
committerLars Ingebrigtsen <larsi@gnus.org>
Tue, 8 Feb 2022 06:34:34 +0000 (07:34 +0100)
* lisp/face-remap.el (text-scale-adjust): Clear the prompt after
exiting (bug#25978).

lisp/face-remap.el

index 3675ea14b4c95e29ed91deca6352ce75c4a13c7e..34cd0306525f9494bce9a7bd14ac22d19a45af69 100644 (file)
@@ -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.")