Bug: org-capture destroys target file when user aborting prompt in template [6.36trans (release_6.36.430.gec51)]

[David Maus <dmaus@ictsoc.de>]

[-- Attachment #1.1: Type: text/plain, Size: 9729 bytes --]


Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------

When I use an org-capture template that prompts for something
(e.g. headline title) and I abort the prompt (C-g), the capture
process is aborted.  When I quit Emacs right after this, it
mentions the target file to be changed and asks if I would like to
save the change.  If I say yes, the target file is written to disk
with just the skeleton of the template.

Steps to reproduce:

 - setup capture targets with a prompt, e.g.

   (setq org-capture-templates
      '(("t" "Task or appointment" entry (file "~/org/inbox.org")
	 "* TODO %^{Todo} \n:PROPERTIES:\n:created: %U\n:END:\n\n%?")
	("m" "Task or appointment (internet message)" entry
	 (file "~/org/inbox.org")
	 "* TODO %:subject \n:PROPERTIES:\n:created: %U\n:END:\n\n%a\n\n%?")
	("i" "Idea (some day, may be)" entry (file "~/org/inbox.org")
	 "* MAYBE %^{What} \n:PROPERTIES:\n:created: %U\n:END:\n\n%?")
	("n" "Note" entry (file "~/org/inbox.org")
	 "* %:subject%^{Topic} :note:\n:PROPERTIES:\n:created: %U\n:END:\n\n%?")
	("p" "Project" entry (file "~/org/inbox.org")
	 "* %^{Project} :project:\n:PROPERTIES:\n:created: %U\n:END:\n\n%?")))

 - call `org-capture' and select template with prompt (e.g. "t")

 - when prompted, press C-g

 - quit Emacs, answer yes to save target file

 - *boom*, the target contains just:

   * TODO
     :PROPERTIES:
     :created:  [2010-06-27 So 07:36]
     :END:

     %?

Taking a quick look at this, I noticed that after aborting the prompt
I have a buffer namend "*Capture*" with the skeletion of the template,
i.e. exactly what is writting to disk when I leave Emacs.  C-c C-k
does not work in this buffer.

And it is not even necessary to leave Emacs -- calling
`org-save-all-org-buffers' seems to cause this buffer writting to
target file.

 -- David

Emacs  : GNU Emacs 23.2.1 (i486-pc-linux-gnu, GTK+ Version 2.20.0)
 of 2010-05-16 on raven, modified by Debian
Package: Org-mode version 6.36trans (release_6.36.430.gec51)

current state:
==============
(setq
 org-export-html-final-hook '(org-inlinetask-remove-terminator)
 org-log-done 'time
 org-wl-nntp-prefer-web-links t
 org-export-author-info nil
 org-export-latex-default-class "scrartcl"
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-todo-keyword-faces '(("MAYBE" :foreground "coral" :weight bold) ("TODO" :foreground "red" :weight bold)
			  ("NEXT" :foreground "orange red" :weight bold) ("WAIT" :foreground "dark red" :weight bold)
			  ("DONE" :foreground "forest green" :weight bold)
			  ("CANCELLED" :foreground "dark gray" :weight bold))
 org-wl-shimbun-prefer-web-links t
 org-agenda-custom-commands '(("r" "Refile new tasks, projects, notes, and references" tags "LEVEL=1+REFILE"
			       ((org-agenda-overriding-header "New tasks, projects, notes, and references")))
			      ("o" "Other tasks" tags-todo "STYLE<>\"habit\"/!TODO"
			       ((org-agenda-skip-function (quote dmj/has-timestamp))
				(org-agenda-overriding-header "Other tasks"))
			       )
			      ("n" "Next actions" tags-todo "/!NEXT" ((org-agenda-overriding-header "Next actions")))
			      ("M" "Someday/maybe" tags-todo "/!MAYBE")
			      ("p" "Projects" tags "project" ((org-agenda-overriding-header "Projects")))
			      ("P" "New projects" tags-todo "/!-DONE-CANCELLED"
			       ((org-agenda-overriding-header "New projects")
				(org-agenda-skip-function (quote dmj/skip-non-project)))
			       )
			      )
 org-agenda-files '("~/org/")
 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent org-depend-block-todo)
 org-agenda-tags-column -100
 org-export-ascii-final-hook '(org-inlinetask-remove-terminator)
 org-hide-leading-stars t
 org-clock-into-drawer "CLOCK"
 org-checklist-export-function 'org-export-as-ascii
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-after-todo-state-change-hook '(org-clock-out-if-current org-checklist)
 org-agenda-todo-ignore-scheduled t
 org-todo-state-tags-triggers '((todo ("note")))
 org-log-state-notes-insert-after-drawers t
 org-export-blocks-postblock-hook '(org-exp-res/src-name-cleanup)
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 org-stuck-projects '("project/-DONE-CANCELLED" ("NEXT") nil nil)
 org-trigger-hook '(org-depend-trigger-todo)
 org-export-preprocess-hook '(org-export-blocks-preprocess)
 org-tags-exclude-from-inheritance '("note" "project")
 org-tab-first-hook '(org-hide-block-toggle-maybe org-babel-hide-result-toggle-maybe)
 org-src-mode-hook '(org-src-mode-configure-edit-buffer)
 org-confirm-shell-link-function 'yes-or-no-p
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-wl-link-remove-filter t
 org-startup-indented t
 org-todo-keywords '((sequence "MAYBE(m)" "TODO(t)" "NEXT(n)" "WAIT(w@/!)" "|" "DONE(D)" "CANCELLED(C@)"))
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-default-notes-file "/home/dmaus/org//bucket.org"
 org-directory "/home/dmaus/org/"
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines
		  org-optimize-window-after-visibility-change)
 org-export-latex-classes '(("scrartcl" "\\documentclass[12pt]{scrartcl}" ("\\section{%s}" . "\\section*{%s}")
			     ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
			     ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
			    ("article" "\\documentclass[11pt]{article}" ("\\section{%s}" . "\\section*{%s}")
			     ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
			     ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
			    ("report" "\\documentclass[11pt]{report}" ("\\part{%s}" . "\\part*{%s}")
			     ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}")
			     ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
			    ("book" "\\documentclass[11pt]{book}" ("\\part{%s}" . "\\part*{%s}")
			     ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}")
			     ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
			    ("beamer" "\\documentclass{beamer}" org-beamer-sectioning))
 org-publish-project-alist '(("ictsoc-base-dyn" :base-directory "~/www/ictsoc.de/src/" :base-extension "org"
			      :publishing-directory "~/www/ictsoc.de/www/" :publishing-function org-publish-org-to-html
			      :author "David Maus" :email "dmaus@ictsoc.de" :author-info t :email-info nil :creator-info t
			      :section-numbers t :sub-superscript nil :recursive t)
			     ("ictsoc-base-stat" :base-directory "~/www/ictsoc.de/src/" :base-extension
			      "css\\|png\\|atom\\|patch" :publishing-directory "~/www/ictsoc.de/www/" :publishing-function
			      org-publish-attachment :recursive t)
			     ("ictsoc-bookmarks" :base-directory "~/.emacs.d/bookmarks/" :base-extension "org"
			      :publishing-directory "~/www/ictsoc.de/www/" :publishing-function org-publish-org-to-html
			      :author "David Maus" :email "dmaus@ictsoc.de" :author-info t :email-info nil :creator-info t
			      :section-numbers t :recursive nil)
			     ("ictsoc" :components ("ictsoc-base-dyn" "ictsoc-base-stat" "ictsoc-bookmarks")))
 org-export-preprocess-before-normalizing-links-hook '(org-remove-file-link-modifiers)
 org-email-link-description-format "%m"
 org-mode-hook '((lambda nil
		  (org-add-hook (quote change-major-mode-hook) (quote org-show-block-all) (quote append) (quote local)))
		 (lambda nil
		  (org-add-hook (quote change-major-mode-hook) (quote org-babel-show-result-all) (quote append)
		   (quote local))
		  )
		 org-babel-result-hide-spec org-babel-hide-all-hashes)
 org-clock-out-remove-zero-time-clocks t
 org-font-lock-hook '(org-inlinetask-fontify)
 org-export-creator-info nil
 org-agenda-ndays 1
 org-refile-targets '((org-agenda-files :maxlevel . 3))
 org-ctrl-c-ctrl-c-hook '(org-babel-lob-execute-maybe org-babel-hash-at-point org-babel-execute-src-block-maybe)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-refile-use-outline-path 'file
 org-log-into-drawer "LOGBOOK"
 org-export-interblocks '((lob org-babel-exp-lob-one-liners) (src org-babel-exp-inline-src-blocks))
 org-export-html-style-include-default nil
 org-enforce-todo-dependencies t
 org-refile-allow-creating-parent-nodes 'confirm
 org-occur-hook '(org-first-headline-recenter)
 org-export-preprocess-before-selecting-backend-code-hook '(org-beamer-select-beamer-code)
 org-tags-column -100
 org-agenda-todo-ignore-deadlines t
 org-modules '(org-habit org-bbdb org-bibtex org-docview org-gnus org-info org-jsinfo org-irc org-mew org-mhe org-rmail
	       org-vm org-w3m org-wl)
 org-export-preprocess-after-tree-selection-hook '(org-inlinetask-export-handler)
 org-export-docbook-final-hook '(org-inlinetask-remove-terminator)
 org-export-latex-final-hook '(org-inlinetask-remove-terminator org-beamer-amend-header org-beamer-fix-toc
			       org-beamer-auto-fragile-frames org-beamer-place-default-actions-for-lists)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-export-blocks '((src org-babel-exp-src-blocks nil) (comment org-export-blocks-format-comment t)
		     (ditaa org-export-blocks-format-ditaa nil) (dot org-export-blocks-format-dot nil))
 )
--
OpenPGP... 0x99ADB83B5A4478E6
Jabber.... dmjena@jabber.org
Email..... dmaus@ictsoc.de

[-- Attachment #1.2: Type: application/pgp-signature, Size: 230 bytes --]

[-- Attachment #2: Type: text/plain, Size: 201 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode