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

diff -r 8d403fa5e77d -r fc09ebad59dd lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Oct 15 16:49:11 2010 +0900
+++ b/lisp/ChangeLog	Wed Oct 20 09:32:53 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-15  Kenichi Handa  <handa@m17n.org>
 
 	* international/characters.el: Add category '|' (word breakable)
diff -r 8d403fa5e77d -r fc09ebad59dd lisp/face-remap.el
--- a/lisp/face-remap.el	Fri Oct 15 16:49:11 2010 +0900
+++ b/lisp/face-remap.el	Wed Oct 20 09:32:53 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)))