diff options
| author | Karl Heuer | 1996-01-25 00:51:58 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-01-25 00:51:58 +0000 |
| commit | 4120f5f5d2fb7c753801a474cd78f9f077f1f103 (patch) | |
| tree | 7566cec96c033a828bd40dc5381593b914a8bf3f | |
| parent | b7acde90f39d5e2d895c5be79b1b33a1fddd864d (diff) | |
| download | emacs-4120f5f5d2fb7c753801a474cd78f9f077f1f103.tar.gz emacs-4120f5f5d2fb7c753801a474cd78f9f077f1f103.zip | |
(cookie-snarf): Pass proper format string to message.
| -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." | |||
| 104 | (if sym | 104 | (if sym |
| 105 | (symbol-value sym) | 105 | (symbol-value sym) |
| 106 | (setq sym (intern phrase-file cookie-cache)) | 106 | (setq sym (intern phrase-file cookie-cache)) |
| 107 | (message startmsg) | 107 | (message "%s" startmsg) |
| 108 | (save-excursion | 108 | (save-excursion |
| 109 | (let ((buf (generate-new-buffer "*cookie*")) | 109 | (let ((buf (generate-new-buffer "*cookie*")) |
| 110 | (result nil)) | 110 | (result nil)) |
| @@ -118,7 +118,7 @@ and subsequent calls on the same file won't go to disk." | |||
| 118 | (setq result (cons (buffer-substring beg (1- (point))) | 118 | (setq result (cons (buffer-substring beg (1- (point))) |
| 119 | result)))) | 119 | result)))) |
| 120 | (kill-buffer buf) | 120 | (kill-buffer buf) |
| 121 | (message endmsg) | 121 | (message "%s" endmsg) |
| 122 | (set sym (apply 'vector result))))))) | 122 | (set sym (apply 'vector result))))))) |
| 123 | 123 | ||
| 124 | (defun read-cookie (prompt phrase-file startmsg endmsg &optional require-match) | 124 | (defun read-cookie (prompt phrase-file startmsg endmsg &optional require-match) |