From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bastien Guerry Subject: [Accepted] org-export-preprocess-string: Use backend var Date: Mon, 28 Feb 2011 12:20:50 +0100 (CET) Message-ID: <20110228112050.0F5D86A2C@myhost.localdomain> References: <8162sgx8l7.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Return-path: Received: from [140.186.70.92] (port=34474 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Pu1AB-0004aO-6r for emacs-orgmode@gnu.org; Mon, 28 Feb 2011 06:22:47 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Pu19x-0006tl-2g for emacs-orgmode@gnu.org; Mon, 28 Feb 2011 06:21:06 -0500 Received: from mail-bw0-f41.google.com ([209.85.214.41]:64981) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Pu19w-0006tg-S1 for emacs-orgmode@gnu.org; Mon, 28 Feb 2011 06:21:01 -0500 Received: by bwz17 with SMTP id 17so4177247bwz.0 for ; Mon, 28 Feb 2011 03:20:59 -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 625 (http://patchwork.newartisans.com/patch/625/) is now "Accepted". Maintainer comment: none This relates to the following submission: http://mid.gmane.org/%3C8162sgx8l7.fsf%40gmail.com%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: [Orgmode] org-export-preprocess-string: Use backend var > Date: Sat, 19 Feb 2011 22:00:52 -0000 > From: Jambunathan K > X-Patchwork-Id: 625 > Message-Id: <8162sgx8l7.fsf@gmail.com> > To: emacs-orgmode@gnu.org > > > > > >From 2b1f84fdcd7d79ad95e71bc2ca96fb16ad76b446 Mon Sep 17 00:00:00 2001 > From: Jambunathan K > Date: Sat, 19 Feb 2011 22:26:10 +0530 > Subject: [PATCH] org-export-preprocess-string: Use backend var > > --- > lisp/org-exp.el | 22 +++++----------------- > 1 files changed, 5 insertions(+), 17 deletions(-) > > diff --git a/lisp/org-exp.el b/lisp/org-exp.el > index 9a35b00..a17091b 100644 > --- a/lisp/org-exp.el > +++ b/lisp/org-exp.el > @@ -1197,23 +1197,11 @@ on this string to produce the exported version." > ;; Another hook > (run-hooks 'org-export-preprocess-before-backend-specifics-hook) > > - ;; LaTeX-specific preprocessing > - (when (eq backend 'latex) > - (require 'org-latex nil) > - (org-export-latex-preprocess parameters)) > - > - ;; ASCII-specific preprocessing > - (when (eq backend 'ascii) > - (org-export-ascii-preprocess parameters)) > - > - ;; HTML-specific preprocessing > - (when (eq backend 'html) > - (org-export-html-preprocess parameters)) > - > - ;; DocBook-specific preprocessing > - (when (eq backend 'docbook) > - (require 'org-docbook nil) > - (org-export-docbook-preprocess parameters)) > + ;; Backend-specific preprocessing > + (let* ((backend-name (symbol-name backend)) > + (f (intern (format "org-export-%s-preprocess" backend-name)))) > + (require (intern (concat "org-" backend-name)) nil) > + (funcall f parameters)) > > ;; Remove or replace comments > (org-export-handle-comments (plist-get parameters :comments)) > -- > 1.7.2.3 > > >