diff options
| author | Nicolas Richard <youngfrog@members.fsf.org> | 2015-06-19 16:57:26 +0200 |
|---|---|---|
| committer | Stephen Berman <stephen.berman@gmx.net> | 2015-06-19 16:57:26 +0200 |
| commit | b9f02cf65a1b41e486f412e6f98644f298129d55 (patch) | |
| tree | 31170d8808a088bf2a1b77b1a4c54bc265e78e76 /lisp/calendar | |
| parent | 8b5f2f439b835ad115ce084ba68e0ae38ea40dd8 (diff) | |
| download | emacs-b9f02cf65a1b41e486f412e6f98644f298129d55.tar.gz | |
Fixes: debbugs:20832
* lisp/calendar/todo-mode.el (todo-show): Signal an error
if buffer for adding new todo file is empty but modified.
Diffstat (limited to 'lisp/calendar')
| -rw-r--r-- | lisp/calendar/todo-mode.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el index dcc960fb9bf..6e975249a3f 100644 --- a/lisp/calendar/todo-mode.el +++ b/lisp/calendar/todo-mode.el @@ -743,6 +743,11 @@ corresponding todo file, displaying the corresponding category." (setq todo-category-number (todo-category-number cat))) ;; If this is a new todo file, add its first category. (when (zerop (buffer-size)) + ;; Don't confuse an erased buffer with a fresh buffer for + ;; adding a new todo file -- it might have been erased by + ;; mistake or due to a bug (e.g. Bug#20832). + (when (buffer-modified-p) + (error "Buffer is empty but modified, please report a bug")) (let (cat-added) (unwind-protect (setq todo-category-number |