diff options
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/textmodes/remember.el | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b8cc19b383c..2ee8799f62b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,8 @@ | |||
| 1 | 2013-10-21 Stefan Monnier <monnier@iro.umontreal.ca> | 1 | 2013-10-21 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 2 | ||
| 3 | * textmodes/remember.el (remember-diary-extract-entries): | ||
| 4 | Avoid add-to-list. | ||
| 5 | |||
| 3 | * progmodes/ruby-mode.el (ruby-smie-rules): Indent after + used as | 6 | * progmodes/ruby-mode.el (ruby-smie-rules): Indent after + used as |
| 4 | an instruction. | 7 | an instruction. |
| 5 | 8 | ||
diff --git a/lisp/textmodes/remember.el b/lisp/textmodes/remember.el index e44f12d1db8..891912c0a91 100644 --- a/lisp/textmodes/remember.el +++ b/lisp/textmodes/remember.el | |||
| @@ -535,7 +535,7 @@ If this is nil, then `diary-file' will be used instead." | |||
| 535 | (goto-char (point-min)) | 535 | (goto-char (point-min)) |
| 536 | (let (list) | 536 | (let (list) |
| 537 | (while (re-search-forward "^DIARY:\\s-*\\(.+\\)" nil t) | 537 | (while (re-search-forward "^DIARY:\\s-*\\(.+\\)" nil t) |
| 538 | (add-to-list 'list (remember-diary-convert-entry (match-string 1)))) | 538 | (push (remember-diary-convert-entry (match-string 1)) list)) |
| 539 | (when list | 539 | (when list |
| 540 | (diary-make-entry (mapconcat 'identity list "\n") | 540 | (diary-make-entry (mapconcat 'identity list "\n") |
| 541 | nil remember-diary-file)) | 541 | nil remember-diary-file)) |