From mboxrd@z Thu Jan 1 00:00:00 1970 From: Jambunathan K Subject: [PATCH] org-export-preprocess-string: Use backend var Date: Sat, 19 Feb 2011 22:30:52 +0530 Message-ID: <8162sgx8l7.fsf@gmail.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="===============0520669389==" Return-path: Received: from [140.186.70.92] (port=49355 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PqqBK-000114-Jh for emacs-orgmode@gnu.org; Sat, 19 Feb 2011 12:01:20 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PqqBJ-0007e4-41 for emacs-orgmode@gnu.org; Sat, 19 Feb 2011 12:01:18 -0500 Received: from mail-iy0-f169.google.com ([209.85.210.169]:39871) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PqqBI-0007do-Pt for emacs-orgmode@gnu.org; Sat, 19 Feb 2011 12:01:17 -0500 Received: by iyf13 with SMTP id 13so1290214iyf.0 for ; Sat, 19 Feb 2011 09:01:16 -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 --===============0520669389== Content-Type: text/x-patch Content-Disposition: attachment; filename=0001-org-export-preprocess-string-Use-backend-var.patch >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 --===============0520669389== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --===============0520669389==--