[Orgmode] Re: [BUG] nested blocks aren't protected on export

[Eric Schulte]

I've put together two patches which fix the problems I mention below.

I'd like to apply these patches, but I fear that they may cause
unanticipated export problems.  I'd be much more comfortable if someone
who knows a little more about the exporters could take a look at these.

Thanks -- Eric

>From 47fcfd522294560dbe01f00b640631964e063cf0 Mon Sep 17 00:00:00 2001
From: Eric Schulte <address@hidden>
Date: Sun, 27 Jun 2010 19:35:34 -0700
Subject: [PATCH 1/2] org-exp: check for protection before removing comments

* lisp/org-exp.el (org-export-handle-comments): check for protection
  before removing comments
---
 lisp/org-exp.el |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/org-exp.el b/lisp/org-exp.el
index 704c0b7..411557a 100644
--- a/lisp/org-exp.el
+++ b/lisp/org-exp.el
@@ -1650,8 +1650,10 @@ When it is nil, all comments will be removed."
                  (match-beginning 0) (match-end 0) '(org-protected t))
                 (replace-match (format commentsp (match-string 2)) t t))
        (goto-char (1+ pos))
-       (replace-match "")
-       (goto-char (max (point-min) (1- pos)))))))
+       (org-if-unprotected
+        (replace-match "")
+        (goto-char (max (point-min) (1- pos))))))))
+
 
 (defun org-export-mark-radio-links ()
   "Find all matches for radio targets and turn them into internal links."
-- 
1.7.0.4

>From d422f564163e37c51d0727e2992b24b85caf54ea Mon Sep 17 00:00:00 2001
From: Eric Schulte <address@hidden>
Date: Sun, 27 Jun 2010 19:36:14 -0700
Subject: [PATCH 2/2] org-latex: check for protection before wrapping ": " lines 
as verbatim

* lisp/org-latex.el (org-export-latex-fixed-width): check for
  protection before wrapping ": " lines as verbatim
---
 lisp/org-latex.el |   28 ++++++++++++++--------------
 1 files changed, 14 insertions(+), 14 deletions(-)

diff --git a/lisp/org-latex.el b/lisp/org-latex.el
index 01a4b05..94f04e6 100644
--- a/lisp/org-latex.el
+++ b/lisp/org-latex.el
@@ -1537,20 +1537,20 @@ The conversion is made depending of STRING-BEFORE and 
STRING-AFTER."
   "When OPT is non-nil convert fixed-width sections to LaTeX."
   (goto-char (point-min))
   (while (re-search-forward "^[ \t]*:\\([ \t]\\|$\\)" nil t)
-    (if opt
-       (progn (goto-char (match-beginning 0))
-              (insert "\\begin{verbatim}\n")
-              (while (looking-at "^\\([ \t]*\\):\\(\\([ \t]\\|$\\).*\\)$")
-                (replace-match (concat (match-string 1)
-                                       (match-string 2)) t t)
-                (forward-line))
-              (insert "\\end{verbatim}\n\n"))
-      (progn (goto-char (match-beginning 0))
-            (while (looking-at "^\\([ \t]*\\):\\(\\([ \t]\\|$\\).*\\)$")
-              (replace-match (concat "%" (match-string 1)
-                                     (match-string 2)) t t)
-              (forward-line))))))
-
+    (org-if-unprotected
+     (if opt
+        (progn (goto-char (match-beginning 0))
+               (insert "\\begin{verbatim}\n")
+               (while (looking-at "^\\([ \t]*\\):\\(\\([ \t]\\|$\\).*\\)$")
+                 (replace-match (concat (match-string 1)
+                                        (match-string 2)) t t)
+                 (forward-line))
+               (insert "\\end{verbatim}\n\n"))
+       (progn (goto-char (match-beginning 0))
+             (while (looking-at "^\\([ \t]*\\):\\(\\([ \t]\\|$\\).*\\)$")
+               (replace-match (concat "%" (match-string 1)
+                                      (match-string 2)) t t)
+               (forward-line)))))))
 
 (defvar org-table-last-alignment) ; defined in org-table.el
 (defvar org-table-last-column-widths) ; defined in org-table.el
-- 
1.7.0.4

"Eric Schulte" <address@hidden> writes:

> Hi,
>
> When exporting nested blocks, the results of the inner blocks are not
> fully protected from further exportation.  For example, the following
> org-mode text
>
> ** protecting block bodies
> #+begin_src org
>   ,#+begin_src emacs-lisp
>   ,  (message "something")
>   ,#+end_src
> #+end_src
>
> exports to the following LaTeX
>
> \section*{protecting block bodies}
> \label{sec-1}
>
> \begin{verbatim}
>   (message "something")
> \end{verbatim}
>
> in which it looks like the "#+begin_src emacs-lisp" and the "#+end_src"
> lines are completely removed, and exports to the following html
> (newlines added for readability)
>
> <pre class="src src-org">
> <span class="org-org-meta-line">#+begin_src emacs-lisp</span>
> <span class="org-org-block">  (message "something")</span>
> <span class="org-org-meta-line">
> </pre>
>
> in which the #+begin_src line is in tact, but it appears everything
> following the end_src line (including the </span>) is removed.
>
> I've played around with adding 'org-protected properties during export
> but to no avail.
>
> Any suggestions are much appreciated.
>
> Thanks -- Eric