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

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

2 files changed, 6 insertions, 1 deletions

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 ?=))