summaryrefslogtreecommitdiff
path: root/lisp/subr.el
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1996-01-25 01:03:16 +0000
committerKarl Heuer <kwzh@gnu.org>1996-01-25 01:03:16 +0000
commiteb1344af4b33bf6f048066f8a877073b576197fa (patch)
treec799c2812c672158bb178d92e5a0d08921e19692 /lisp/subr.el
parent9a1874f69fb4af520c16e56ef7032e2384c38aa3 (diff)
downloademacs-eb1344af4b33bf6f048066f8a877073b576197fa.tar.gz
(read-quoted-char): Delete format call inside message.
Diffstat (limited to 'lisp/subr.el')
-rw-r--r--lisp/subr.el3
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/subr.el b/lisp/subr.el
index 206e415651c..11d22bb8f8f 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -625,8 +625,7 @@ or three octal digits representing its character code."))
((and (<= ?0 char) (<= char ?7))
(setq code (+ (* code 8) (- char ?0))
count (1+ count))
- (and prompt (message (setq prompt
- (format "%s %c" prompt char)))))
+ (and prompt (setq prompt (message "%s %c" prompt char))))
((> count 0)
(setq unread-command-events (list char) count 259))
(t (setq code char count 259))))