[Accepted] [O,5/5] Escape double quotes in headlines

[Bastien Guerry <bzg@altern.org>]

Patch 692 (http://patchwork.newartisans.com/patch/692/) is now "Accepted".

Maintainer comment: none

This relates to the following submission:

http://mid.gmane.org/%3C1300273502-12977-6-git-send-email-christian.egli%40alumni.ethz.ch%3E

Here is the original message containing the patch:

> Content-Type: text/plain; charset="utf-8"
> MIME-Version: 1.0
> Content-Transfer-Encoding: 7bit
> Subject: [O,5/5] Escape double quotes in headlines
> Date: Wed, 16 Mar 2011 16:05:02 -0000
> From: Christian Egli <christian.egli@alumni.ethz.ch>
> X-Patchwork-Id: 692
> Message-Id: <1300273502-12977-6-git-send-email-christian.egli@alumni.ethz.ch>
> To: emacs-orgmode@gnu.org
> 
> * org-taskjuggler.el (org-taskjuggler-components): Escape quotes in
> headlines.
> 
> Taskjuggler will barf if the task names (which are double quoted
> strings) contain double quotes.
> 
> ---
> lisp/org-taskjuggler.el |    4 +++-
>  1 files changed, 3 insertions(+), 1 deletions(-)
> 
> diff --git a/lisp/org-taskjuggler.el b/lisp/org-taskjuggler.el
> index b39353c..ed3af48 100644
> --- a/lisp/org-taskjuggler.el
> +++ b/lisp/org-taskjuggler.el
> @@ -354,7 +354,9 @@ information, all the properties, etc."
>    (let* ((props (org-entry-properties))
>  	 (components (org-heading-components))
>  	 (level (nth 1 components))
> -	 (headline (nth 4 components))
> +	 (headline 
> +	  (replace-regexp-in-string 
> +	   "\"" "\\\"" (nth 4 components) t t)) ; quote double quotes in headlines
>  	 (parent-ordered (org-taskjuggler-parent-is-ordered-p)))
>      (push (cons "level" level) props)
>      (push (cons "headline" headline) props)
>