* [PATCH] fix bug in org-exp-blocks, removing src code indentation
@ 2009-08-17 20:49 Eric Schulte
2009-08-18 5:36 ` Carsten Dominik
0 siblings, 1 reply; 2+ messages in thread
From: Eric Schulte @ 2009-08-17 20:49 UTC (permalink / raw)
To: Org Mode
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))
^ permalink raw reply related [flat|nested] 2+ messages in thread
* Re: [PATCH] fix bug in org-exp-blocks, removing src code indentation
2009-08-17 20:49 [PATCH] fix bug in org-exp-blocks, removing src code indentation Eric Schulte
@ 2009-08-18 5:36 ` Carsten Dominik
0 siblings, 0 replies; 2+ messages in thread
From: Carsten Dominik @ 2009-08-18 5:36 UTC (permalink / raw)
To: Eric Schulte; +Cc: Org Mode
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
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2009-08-18 5:36 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2009-08-17 20:49 [PATCH] fix bug in org-exp-blocks, removing src code indentation Eric Schulte
2009-08-18 5:36 ` Carsten Dominik
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).