diff options
| author | Richard M. Stallman | 1998-02-12 03:10:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-02-12 03:10:53 +0000 |
| commit | bfaef6dca8d60fd79cc546a78571876610008185 (patch) | |
| tree | a2769e18d36be863696a3b2632116f873f81ee3e | |
| parent | 0775c032ae5c3e4cabb593555ae88e999eb0342f (diff) | |
| download | emacs-bfaef6dca8d60fd79cc546a78571876610008185.tar.gz emacs-bfaef6dca8d60fd79cc546a78571876610008185.zip | |
(cookie-snarf): Use match-beginning on the delimiter.
(cookie-delimiter): Handle single-% delimiter.
| -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 @@ | |||
| 57 | ; Randomize the seed in the random number generator. | 57 | ; Randomize the seed in the random number generator. |
| 58 | (random t) | 58 | (random t) |
| 59 | 59 | ||
| 60 | (defconst cookie-delimiter "\n%%\n\\|\0" | 60 | (defconst cookie-delimiter "\n%%\n\\|\n%\n\\|\0" |
| 61 | "Delimiter used to separate cookie file entries.") | 61 | "Delimiter used to separate cookie file entries.") |
| 62 | 62 | ||
| 63 | (defvar cookie-cache (make-vector 511 0) | 63 | (defvar cookie-cache (make-vector 511 0) |
| @@ -115,7 +115,7 @@ and subsequent calls on the same file won't go to disk." | |||
| 115 | (while (progn (skip-chars-forward " \t\n\r\f") (not (eobp))) | 115 | (while (progn (skip-chars-forward " \t\n\r\f") (not (eobp))) |
| 116 | (let ((beg (point))) | 116 | (let ((beg (point))) |
| 117 | (re-search-forward cookie-delimiter) | 117 | (re-search-forward cookie-delimiter) |
| 118 | (setq result (cons (buffer-substring beg (1- (point))) | 118 | (setq result (cons (buffer-substring beg (match-beginning 0)) |
| 119 | result)))) | 119 | result)))) |
| 120 | (kill-buffer buf) | 120 | (kill-buffer buf) |
| 121 | (message "%s" endmsg) | 121 | (message "%s" endmsg) |