[PATCH] fix bug in org-exp-blocks, removing src code indentation

[PATCH] fix bug in org-exp-blocks, removing src code indentation

[Eric Schulte]

Hi,

Please apply the attached patch which replaces `indent-region' with
`indent-code-rigidly' in org-exp-blocks.  This fixes the problem of
indentation being removed from source-code blocks.

Thanks -- Eric

diff --git a/lisp/org-exp-blocks.el b/lisp/org-exp-blocks.el
index 6025ce7..8df0ac1 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-stri
                                           (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))

Re: [PATCH] fix bug in org-exp-blocks, removing src code indentation

[Carsten Dominik]

Applied, thanks.

- Carsten

On Aug 17, 2009, at 9:49 PM, Eric Schulte wrote:

> Hi,
>
> Please apply the attached patch which replaces `indent-region' with
> `indent-code-rigidly' in org-exp-blocks.  This fixes the problem of
> indentation being removed from source-code blocks.
>
> Thanks -- Eric
>
> diff --git a/lisp/org-exp-blocks.el b/lisp/org-exp-blocks.el
> index 6025ce7..8df0ac1 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-stri
>                                           (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))
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode