[PATCH] Fix org-indent-region's BEGIN_SRC / END_SRC indentation

[Joost Diepenmaat <joost@zeekat.nl>]

[-- Attachment #1.1: Type: text/plain, Size: 402 bytes --]

Hello,

Attached is a 2 character patch that makes org-indent-region indent
#+BEGIN_SRC and #+END_SRC lines according to org document rules instead of
the indentation rules of the language /inside/ the source block.

This is my first patch proposal for org-mode, so please let me know if I
need to modify things. In any case, feedback is welcome!

Cheers,
Joost Diepenmaat
Zeekat Software Ontwikkeling

[-- Attachment #1.2: Type: text/html, Size: 497 bytes --]

[-- Attachment #2: 0001-Correctly-indent-BEGIN_SRC-and-END_SRC-lines.patch --]
[-- Type: application/octet-stream, Size: 950 bytes --]

From 659a071cc519ebdaabd586132f1d4d3159475c8d Mon Sep 17 00:00:00 2001
From: Joost Diepenmaat <joost@zeekat.nl>
Date: Fri, 25 Oct 2013 11:08:46 +0200
Subject: [PATCH] Correctly indent BEGIN_SRC and END_SRC lines

BEGIN_SRC and END_SRC lines should not be considered part of the
source block for the purposes of indentation.

TINYCHANGE
---
 lisp/org.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/org.el b/lisp/org.el
index 8c4b5e7..cbf7b87 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -22151,7 +22151,7 @@ hierarchy of headlines by UP levels before marking the subtree."
     (let ((line-end (org-current-line end)))
       (goto-char start)
       (while (< (org-current-line) line-end)
-	(cond ((org-in-src-block-p) (org-src-native-tab-command-maybe))
+	(cond ((org-in-src-block-p t) (org-src-native-tab-command-maybe))
 	      (t (call-interactively 'org-indent-line)))
 	(move-beginning-of-line 2)))))
 
-- 
1.8.4