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 | 6a5e2c88e02460482771c45cb59ea0616b20575c (patch) | |
| tree | 5d33d0fa5fa8c064330de3b62baac8cfb8276572 /lisp/play/cookie1.el | |
| parent | 42c1c6775ee2cba6de0f6a429f9f1e78c073354e (diff) | |
| download | emacs-6a5e2c88e02460482771c45cb59ea0616b20575c.tar.gz | |
(cookie-snarf): Pass proper format string to message.
Diffstat (limited to 'lisp/play/cookie1.el')
| -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) |