From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bastien Guerry Subject: [Accepted] [O] Re: [REGRESSION] org-html.el (targets) Date: Wed, 9 Mar 2011 16:38:06 +0100 (CET) Message-ID: <20110309153806.1FBFD6A2D@myhost.localdomain> References: <87fwqwnxj6.fsf@univ-nantes.fr> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Return-path: Received: from [140.186.70.92] (port=33824 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PxLT3-0003ug-2U for emacs-orgmode@gnu.org; Wed, 09 Mar 2011 10:38:30 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PxLT0-000692-KX for emacs-orgmode@gnu.org; Wed, 09 Mar 2011 10:38:28 -0500 Received: from mail-ww0-f49.google.com ([74.125.82.49]:38017) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PxLT0-00068t-Ch for emacs-orgmode@gnu.org; Wed, 09 Mar 2011 10:38:26 -0500 Received: by wwc33 with SMTP id 33so586956wwc.30 for ; Wed, 09 Mar 2011 07:38:25 -0800 (PST) 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 Patch 664 (http://patchwork.newartisans.com/patch/664/) is now "Accepted". Maintainer comment: none This relates to the following submission: http://mid.gmane.org/%3C87fwqwnxj6.fsf%40univ-nantes.fr%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] Re: [REGRESSION] org-html.el (targets) > Date: Wed, 09 Mar 2011 20:06:37 -0000 > From: Manuel Giraud > X-Patchwork-Id: 664 > Message-Id: <87fwqwnxj6.fsf@univ-nantes.fr> > To: Bastien > Cc: Bernt Hansen , Aankhen , > Org-mode ml > > Bastien writes: > > > Bastien writes: > > > >> May I ask you to rewrite these patches into a single one? > > > > PS: I mean: merge all patches in this thread relevant to the problem, > > possibly including Aankhen patch. Thanks! > > Ok, here it is. Hopes this one's ok. > > > >From a9e692243b37be9947db9a7220ea561d261deaba Mon Sep 17 00:00:00 2001 > From: Manuel Giraud > Date: Wed, 9 Mar 2011 16:03:43 +0100 > Subject: [PATCH] Correct HTML export of dedicated target. > > * org-html.el (org-format-org-table-html): fix anchors in HTML > export (thanks to ) > (org-html-protect): fix a bug that prevents some target to be > rendered correctly. > > * org-exp.el (org-solidify-link-text): a single "-" to avoid a > "&ndash" rewrite in HTML export later. > --- > lisp/org-exp.el | 2 +- > lisp/org-html.el | 14 +++++++------- > 2 files changed, 8 insertions(+), 8 deletions(-) > > diff --git a/lisp/org-exp.el b/lisp/org-exp.el > index 709317a..dff86b6 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 333cf4d..54cbf36 100644 > --- a/lisp/org-html.el > +++ b/lisp/org-html.el > @@ -1996,8 +1996,8 @@ for formatting. This is required for the DocBook exporter." > ;; DocBook document, we want to always include the caption to make > ;; DocBook XML file valid. > (push (format "%s" (or caption "")) html) > - (when label (push (format "" (org-solidify-link-text label) (org-solidify-link-text label)) > - html)) > + (when label > + (setq html-table-tag (org-export-splice-attributes html-table-tag (format "id=\"%s\"" (org-solidify-link-text label))))) > (push html-table-tag html)) > (setq html (mapcar > (lambda (x) > @@ -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 > >