From: Kenichi Handa <handa@m17n.org>
Date: Wed, 20 Oct 2010 00:32:53 +0000 (+0900)
Subject: face-remap.el (text-scale-adjust): Call read-event with a proper prompt.
X-Git-Tag: emacs-pretest-23.2.90~57
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=52ce289046a06a2ed342a796dbf3050e51dcb615;p=emacs.git

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

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