From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nicolas Goaziou Subject: Re: Indentation of backend definitioon Date: Thu, 14 Mar 2013 23:32:22 +0100 Message-ID: <87mwu5bojt.fsf@gmail.com> References: Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([208.118.235.92]:36837) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UGGhN-000536-G6 for emacs-orgmode@gnu.org; Thu, 14 Mar 2013 18:32:35 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UGGhM-0002Ta-DI for emacs-orgmode@gnu.org; Thu, 14 Mar 2013 18:32:33 -0400 Received: from mail-wg0-f49.google.com ([74.125.82.49]:34237) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UGGhM-0002TO-7A for emacs-orgmode@gnu.org; Thu, 14 Mar 2013 18:32:32 -0400 Received: by mail-wg0-f49.google.com with SMTP id ds1so1606825wgb.16 for ; Thu, 14 Mar 2013 15:32:31 -0700 (PDT) In-Reply-To: (Carsten Dominik's message of "Thu, 14 Mar 2013 07:52:19 +0100") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-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: Carsten Dominik Cc: Emacs Org mode Hello, Carsten Dominik writes: > 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. Isn't it the default behaviour (see `declare' in definitions)? Regards, -- Nicolas Goaziou