diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-02-12 03:10:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-02-12 03:10:53 +0000 |
| commit | bfaef6dca8d60fd79cc546a78571876610008185 (patch) | |
| tree | a2769e18d36be863696a3b2632116f873f81ee3e /lisp/play/cookie1.el | |
| parent | 0775c032ae5c3e4cabb593555ae88e999eb0342f (diff) | |
| download | emacs-bfaef6dca8d60fd79cc546a78571876610008185.tar.gz | |
(cookie-snarf): Use match-beginning on the delimiter.
(cookie-delimiter): Handle single-% delimiter.
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 3f8087fa2fa..9e8412d17f1 100644 --- a/lisp/play/cookie1.el +++ b/lisp/play/cookie1.el @@ -57,7 +57,7 @@ ; Randomize the seed in the random number generator. (random t) -(defconst cookie-delimiter "\n%%\n\\|\0" +(defconst cookie-delimiter "\n%%\n\\|\n%\n\\|\0" "Delimiter used to separate cookie file entries.") (defvar cookie-cache (make-vector 511 0) @@ -115,7 +115,7 @@ and subsequent calls on the same file won't go to disk." (while (progn (skip-chars-forward " \t\n\r\f") (not (eobp))) (let ((beg (point))) (re-search-forward cookie-delimiter) - (setq result (cons (buffer-substring beg (1- (point))) + (setq result (cons (buffer-substring beg (match-beginning 0)) result)))) (kill-buffer buf) (message "%s" endmsg) |