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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1913594..b819234 100644 (file)
--- 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 c8fdfff..4441c95 100644 (file)
--- 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)))
 
 \f