[Accepted] [O] Fix for infinite loop in org-html-protect

[Bastien Guerry]

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

Maintainer comment: none

This relates to the following submission:

http://mid.gmane.org/%3C19834.23619.813886.886825%40gargle.gargle.HOWL%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] Fix for infinite loop in org-html-protect
> Date: Fri, 11 Mar 2011 22:30:43 -0000
> From: Kim Rutherford <address@hidden>
> X-Patchwork-Id: 674
> Message-Id: <address@hidden>
> To: address@hidden
> 
> When I export the following as HTML, emacs hangs in org-html-protect:
> 
> #+begin_src org
> &
> #+end_src
> 
> The attached patch fixes the problem for me.
> 
> Thanks,
> Kim.
> >From cfb1ccb6f9cfd84530c73b7f72d686a2062b3c3b Mon Sep 17 00:00:00 2001
> From: Kim Rutherford <address@hidden>
> Date: Fri, 11 Mar 2011 16:44:09 +0000
> Subject: [PATCH] Fix infinite loop in org-html-protect
> 
> ---
> lisp/org-html.el |    2 +-
>  1 files changed, 1 insertions(+), 1 deletions(-)
> 
> diff --git a/lisp/org-html.el b/lisp/org-html.el
> index c60c90d..2312b21 100644
> --- a/lisp/org-html.el
> +++ b/lisp/org-html.el
> @@ -2186,7 +2186,7 @@ Possible conversions are set in 
> `org-export-html-protect-char-alist'."
>        (let ((start 0))
>       (while (string-match (car c) s start)
>         (setq s (replace-match (cdr c) t t s)
> -             start (match-beginning 0)))))
> +             start (1+ (match-beginning 0))))))
>      s))
>  
>  (defun org-html-expand (string)
>