From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 25 Jan 1996 00:51:58 +0000 (+0000)
Subject: (cookie-snarf): Pass proper format string to message.
X-Git-Tag: emacs-19.34~1553
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4120f5f5d2fb7c753801a474cd78f9f077f1f103;p=emacs.git

(cookie-snarf): Pass proper format string to message.
---

diff --git a/lisp/play/cookie1.el b/lisp/play/cookie1.el
index 57d4085f6f5..3f8087fa2fa 100644
--- a/lisp/play/cookie1.el
+++ b/lisp/play/cookie1.el
@@ -104,7 +104,7 @@ and subsequent calls on the same file won't go to disk."
     (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 @@ and subsequent calls on the same file won't go to disk."
 	      (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)