face-remap.el (text-scale-adjust): Call read-event with a proper prompt.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 19135944b17..b8192344354 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/face-remap.el b/lisp/face-remap.el
index c8fdfff8588..4441c9557fb 100644
--- a/lisp/face-remap.el
+++ b/lisp/face-remap.el
@@ -312,7 +312,7 @@ a top-level keymap, `text-scale-increase' or
       (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)))