mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-13 17:40:22 -08:00
Code Issues Projects Releases Wiki Activity

Fixes: debbugs:20832

Browse source 
* 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
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/calendar/todo-mode.el
View file

@ -743,6 +743,11 @@ corresponding todo file, displaying the corresponding category."
(setq todo-category-number (todo-category-number cat))) (setq todo-category-number (todo-category-number cat)))
;; If this is a new todo file, add its first category. ;; If this is a new todo file, add its first category.
(when (zerop (buffer-size)) (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) (let (cat-added)
(unwind-protect (unwind-protect
(setq todo-category-number (setq todo-category-number