changeset 111148:fc09ebad59dd

face-remap.el (text-scale-adjust): Call read-event with a proper prompt.
author Kenichi Handa <handa@m17n.org>
date Wed, 20 Oct 2010 09:32:53 +0900
parents 8d403fa5e77d
children 8b6c4202fa46
files lisp/ChangeLog lisp/face-remap.el
diffstat 2 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)
--- 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)))