From e9cdfce08cc1d377e3ccc51bcdaa77381fd3085f Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Tue, 18 Aug 2009 06:35:50 +0100 Subject: [PATCH] Fix indentation in code export Patch by Eric Schulte. --- lisp/ChangeLog | 3 +++ lisp/org-exp-blocks.el | 5 ++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 56b94738d..8939c9747 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-08-18 Carsten Dominik + * org-exp-blocks.el (org-export-blocks-preprocess): Use + `indent-code-rigidly' to indent. + * org-agenda.el (org-agenda-get-restriction-and-command): Remove properties only if MATCH really is a string. diff --git a/lisp/org-exp-blocks.el b/lisp/org-exp-blocks.el index 6025ce786..8df0ac147 100644 --- a/lisp/org-exp-blocks.el +++ b/lisp/org-exp-blocks.el @@ -203,9 +203,8 @@ specified in BLOCKS which default to the value of "" (apply func (save-match-data (org-remove-indentation (match-string 4))) (split-string (match-string 3) " ")))) t t) - ;; indent the replaced match - (indent-region (match-beginning 0) (match-end 0) indentation) - )) + ;; indent block + (indent-code-rigidly (match-beginning 0) (match-end 0) indentation))) (setf start (save-match-data (match-end 0)))) (mapcar (lambda (type) (interblock start (point-max) type)) -- 2.11.4.GIT