Fixes: debbugs:20832

* lisp/calendar/todo-mode.el (todo-show): Signal an error
if buffer for adding new todo file is empty but modified.
This commit is contained in:
Nicolas Richard 2015-06-19 16:57:26 +02:00 committed by Stephen Berman
parent 8b5f2f439b
commit b9f02cf65a

View file

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