From: Miles Bader <miles@gnu.org>
Date: Sat, 21 Jun 2008 14:54:29 +0000 (+0000)
Subject: (text-scale-adjust): Bind `echo-keystrokes' to nil.
X-Git-Tag: emacs-pretest-23.0.90~4610
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fed7c4f5c946d55ae97dbcd662afa788932eca13;p=emacs.git

(text-scale-adjust): Bind `echo-keystrokes' to nil.

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1273
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b4b8b098865..ac85ca6d317 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-06-21  Miles Bader  <miles@gnu.org>
+
+	* face-remap.el (text-scale-adjust): Bind `echo-keystrokes' to nil.
+
 2008-06-21  Alan Mackenzie  <acm@muc.de>
 
 	* progmodes/cc-engine.el (c-guess-basic-syntax CASE 5D.5): Fix an
diff --git a/lisp/face-remap.el b/lisp/face-remap.el
index b58ee6c74cf..32bba13d00d 100644
--- a/lisp/face-remap.el
+++ b/lisp/face-remap.el
@@ -281,7 +281,8 @@ a top-level keymap, `text-scale-increase' or
   (interactive "p")
   (let ((first t)
 	(step t)
-	(ev last-command-event))
+	(ev last-command-event)
+	(echo-keystrokes nil))
     (while step
       (let ((base (event-basic-type ev)))
 	(cond ((or (eq base ?+) (eq base ?=))