# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822531796 0
# Node ID ab021899d60412243b74c347273ed59acfa4ede6
# Parent  942b8cf3759970aa54972d12ca586169cef51467
(read-quoted-char): Delete format call inside message.

diff -r 942b8cf37599 -r ab021899d604 lisp/subr.el
--- a/lisp/subr.el	Thu Jan 25 01:03:10 1996 +0000
+++ b/lisp/subr.el	Thu Jan 25 01:03:16 1996 +0000
@@ -625,8 +625,7 @@
 	    ((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))))