diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-01-25 00:51:58 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-01-25 00:51:58 +0000 |
| commit | 4120f5f5d2fb7c753801a474cd78f9f077f1f103 (patch) | |
| tree | 7566cec96c033a828bd40dc5381593b914a8bf3f /lisp/play | |
| parent | b7acde90f39d5e2d895c5be79b1b33a1fddd864d (diff) | |
| download | emacs-4120f5f5d2fb7c753801a474cd78f9f077f1f103.tar.gz | |
(cookie-snarf): Pass proper format string to message.
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/cookie1.el | 4 |
1 files changed, 2 insertions, 2 deletions
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) |