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

52ce2890 · Kenichi Handa · 31daa5e1 · 52ce2890 · 52ce2890
Commit 52ce2890 authored Oct 20, 2010 by Kenichi Handa
Show whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/face-remap.el lisp/face-remap.el +1 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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
+++ 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)))