From mboxrd@z Thu Jan 1 00:00:00 1970 From: Manuel Giraud Subject: Re: [REGRESSION] org-html.el (targets) Date: Mon, 07 Mar 2011 17:15:21 +0100 Message-ID: <877hcarjom.fsf@univ-nantes.fr> References: <81r5b2frh9.fsf@gmail.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from [140.186.70.92] (port=53372 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Pwd6f-0001Ny-8e for emacs-orgmode@gnu.org; Mon, 07 Mar 2011 11:16:26 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Pwd6d-0004qR-LS for emacs-orgmode@gnu.org; Mon, 07 Mar 2011 11:16:25 -0500 Received: from smtp-tls1.univ-nantes.fr ([193.52.101.145]:33241 helo=smtp-tls.univ-nantes.fr) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Pwd6d-0004py-Fg for emacs-orgmode@gnu.org; Mon, 07 Mar 2011 11:16:23 -0500 Received: from localhost (debian [127.0.0.1]) by smtp-tls.univ-nantes.fr (Postfix) with ESMTP id 0F5A795400 for ; Mon, 7 Mar 2011 17:16:21 +0100 (CET) Received: from smtp-tls.univ-nantes.fr ([127.0.0.1]) by localhost (smtp-tls1.d101.univ-nantes.fr [127.0.0.1]) (amavisd-new, port 10024) with LMTP id tSyOqf6FRdMc for ; Mon, 7 Mar 2011 17:16:20 +0100 (CET) Received: from K (unknown [172.16.13.134]) (using TLSv1 with cipher DHE-RSA-AES128-SHA (128/128 bits)) (No client certificate requested) by smtp-tls.univ-nantes.fr (Postfix) with ESMTPSA id E46D0953FD for ; Mon, 7 Mar 2011 17:16:20 +0100 (CET) In-Reply-To: <81r5b2frh9.fsf@gmail.com> (Jambunathan K.'s message of "Mon, 21 Feb 2011 00:44:42 +0530") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org --=-=-= Jambunathan K writes: > I am attaching the bug.org file and the html exports as done by git > versions 048f32 (approx a month old) and 77c278 (very recent). Hi, Here's a patch that fixes this issue. --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0001-org-html.el-bug-that-prevents-some-target-to-be-rend.patch >From cd423f908de55a2379c4476c0da8922968786e64 Mon Sep 17 00:00:00 2001 From: Manuel Giraud Date: Mon, 7 Mar 2011 17:12:46 +0100 Subject: [PATCH] org-html.el: bug that prevents some target to be rendered correctly. --- lisp/org-exp.el | 2 +- lisp/org-html.el | 10 +++++----- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/org-exp.el b/lisp/org-exp.el index ae7bdcf..f22eeba 100644 --- a/lisp/org-exp.el +++ b/lisp/org-exp.el @@ -2062,7 +2062,7 @@ can work correctly." (let* ((rtn (mapconcat 'identity - (org-split-string s "[^a-zA-Z0-9_\\.-]+") "--")) + (org-split-string s "[^a-zA-Z0-9_\\.-]+") "-")) (a (assoc rtn alist))) (or (cdr a) rtn)))) diff --git a/lisp/org-html.el b/lisp/org-html.el index eb4b199..8fe8029 100644 --- a/lisp/org-html.el +++ b/lisp/org-html.el @@ -2181,12 +2181,12 @@ that uses these same face definitions." (defun org-html-protect (s) "Convert characters to HTML equivalent. Possible conversions are set in `org-export-html-protect-char-alist'." - (let ((start 0) - (cl org-export-html-protect-char-alist) c) + (let ((cl org-export-html-protect-char-alist) c) (while (setq c (pop cl)) - (while (string-match (car c) s start) - (setq s (replace-match (cdr c) t t s) - start (1+ (match-beginning 0))))) + (let ((start 0)) + (while (string-match (car c) s start) + (setq s (replace-match (cdr c) t t s) + start (match-beginning 0))))) s)) (defun org-html-expand (string) -- 1.7.1 --=-=-= Best regards, -- Manuel Giraud --=-=-=--