# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1287535606 -32400
# Node ID cc1681970a9e1458592075beaa9b7c31c4c6c790
# Parent  497ac3b669cda2cb9096829659b68f26829b2aea# Parent  8b6c4202fa468d98023396e309e776f2afe36dbc
face-remap.el (text-scale-adjust): Call read-event with a proper prompt.

diff -r 497ac3b669cd -r cc1681970a9e lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Oct 19 13:52:29 2010 +0200
+++ b/lisp/ChangeLog	Wed Oct 20 09:46:46 2010 +0900
@@ -1,3 +1,8 @@
+2010-10-20  Kenichi Handa  <handa@m17n.org>
+
+	* face-remap.el (text-scale-adjust): Call read-event with a proper
+	prompt.
+
 2010-10-19  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/tramp.el (tramp-do-file-attributes-with-stat)
diff -r 497ac3b669cd -r cc1681970a9e lisp/face-remap.el
--- a/lisp/face-remap.el	Tue Oct 19 13:52:29 2010 +0200
+++ b/lisp/face-remap.el	Wed Oct 20 09:46:46 2010 +0900
@@ -312,7 +312,7 @@
       (when step
 	(text-scale-increase step)
 	(setq inc 1 first nil)
-	(setq ev (read-event))))
+	(setq ev (read-event "+,-,0 for further adjustment: "))))
     (push ev unread-command-events)))