From mboxrd@z Thu Jan  1 00:00:00 1970
From: Carsten Dominik <carsten.dominik@gmail.com>
Subject: Indentation of backend definitioon
Date: Thu, 14 Mar 2013 07:52:19 +0100
Message-ID: <CBB542D5-8D8F-41BA-B73D-9CFC41E0B30D@gmail.com>
Mime-Version: 1.0 (Mac OS X Mail 6.2 \(1499\))
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([208.118.235.92]:41007)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <carsten.dominik@gmail.com>) id 1UG2i5-0003XV-9L
	for emacs-orgmode@gnu.org; Thu, 14 Mar 2013 03:36:23 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <carsten.dominik@gmail.com>) id 1UG2i2-0006v0-I7
	for emacs-orgmode@gnu.org; Thu, 14 Mar 2013 03:36:21 -0400
Received: from mail-we0-x22d.google.com ([2a00:1450:400c:c03::22d]:59222)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <carsten.dominik@gmail.com>) id 1UG2i2-0006un-C0
	for emacs-orgmode@gnu.org; Thu, 14 Mar 2013 03:36:18 -0400
Received: by mail-we0-f173.google.com with SMTP id x51so1790532wey.32
	for <emacs-orgmode@gnu.org>; Thu, 14 Mar 2013 00:36:17 -0700 (PDT)
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: Emacs Org mode <emacs-orgmode@gnu.org>

Hi Nicolas,

I propose the following patch to improve the automatic
indentation of the backend definition macros in ox.el.

- Carsten

diff --git a/lisp/ox.el b/lisp/ox.el
index c5b6d7c..31983b2 100644
--- a/lisp/ox.el
+++ b/lisp/ox.el
@@ -987,6 +987,7 @@ keywords are understood:
 	    ',export-block))
        ;; Splice in the body, if any.
        ,@body)))
+(put 'org-export-define-backend 'lisp-indent-function 1)
 
 (defmacro org-export-define-derived-backend (child parent &rest body)
   "Create a new back-end as a variant of an existing one.
@@ -1078,6 +1079,7 @@ The back-end could then be called with, for example:
 	    ',export-block))
        ;; Splice in the body, if any.
        ,@body)))
+(put 'org-export-define-derived-backend 'lisp-indent-function 2)
 
 (defun org-export-backend-parent (backend)
   "Return back-end from which BACKEND is derived, or nil."
@@ -5201,6 +5203,7 @@ and
 			   (message "Process '%s' exited abnormally" p))
 		       (unless org-export-async-debug
 			 (delete-file ,,temp-file)))))))))))))
+(put 'org-export-async-start 'lisp-indent-function 1)
 
 (defun org-export-add-to-stack (source backend &optional process)
   "Add a new result to export stack if not present already.