summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>2010-10-20 09:32:53 +0900
committerKenichi Handa <handa@m17n.org>2010-10-20 09:32:53 +0900
commit52ce289046a06a2ed342a796dbf3050e51dcb615 (patch)
tree1bca96a3b7de6285b47ad7a27d04e922a8111d99
parent31daa5e17c73c0830ef5094eb38702450965a938 (diff)
downloademacs-52ce289046a06a2ed342a796dbf3050e51dcb615.tar.gz
face-remap.el (text-scale-adjust): Call read-event with a proper prompt.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/face-remap.el2
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)))