andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Karl Heuer 1996-01-25 00:51:58 +00:00
parent b7acde90f3
commit 4120f5f5d2
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/play/cookie1.el
View file

@ -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)