Mercurial > emacs

diff lisp/subr.el @ 14343:ab021899d604

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read-quoted-char): Delete format call inside message.
author Karl Heuer <kwzh@gnu.org>
date Thu, 25 Jan 1996 01:03:16 +0000
parents 83f275dcd93a
children b35134a0e47a
line wrap: on
line diff
--- 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))))