diff lisp/play/cookie1.el @ 14307:8f846c3889c8

(cookie-snarf): Pass proper format string to message.
author Karl Heuer <kwzh@gnu.org>
date Thu, 25 Jan 1996 00:51:58 +0000
parents 83f275dcd93a
children bb0f5fde5973
line wrap: on
line diff
--- a/lisp/play/cookie1.el	Wed Jan 24 23:44:22 1996 +0000
+++ b/lisp/play/cookie1.el	Thu Jan 25 00:51:58 1996 +0000
@@ -104,7 +104,7 @@
     (if sym
 	(symbol-value sym)
       (setq sym (intern phrase-file cookie-cache))
-      (message startmsg)
+      (message "%s" startmsg)
       (save-excursion
 	(let ((buf (generate-new-buffer "*cookie*"))
 	      (result nil))
@@ -118,7 +118,7 @@
 	      (setq result (cons (buffer-substring beg (1- (point)))
 				 result))))
 	  (kill-buffer buf)
-	  (message endmsg)
+	  (message "%s" endmsg)
 	  (set sym (apply 'vector result)))))))
 
 (defun read-cookie (prompt phrase-file startmsg endmsg &optional require-match)