[Orgmode] Re: Org-mode version 6.31trans; Exporting src blocks to LaTeX produces .tex file that fails to compile

[Chris Gray]

Carsten Dominik wrote:

> Hi Chris,

> the error was on my side - I did not remove the backend-specific
> markers after selecting the content.  This is now again done
> correctly, so your patch should not be needed.  But maybe you
> want it in anyway, with an empty configuration variable?

Famous last words, but I don't see how it can hurt. :)

Cheers,
Chris

> - Carsten

> On Oct 2, 2009, at 11:36 AM, Chris Gray wrote:

>> Hi,

>> The problem was with my org-special-blocks contrib package.  The
>> attached patch fixes it.  Sorry for the noise.

>> Cheers,
>> Chris

>> commit 4d327b5f1e80ea0e493aa70d09c53042216a1390
>> Author: Chris Gray <address@hidden>
>> Date:   Fri Oct 2 11:31:21 2009 +0200

>>    Added a variable to ignore some blocks.

>>      Modified contrib/lisp/org-special-blocks.el
>> diff --git a/contrib/lisp/org-special-blocks.el b/contrib/lisp/org-
>> special-blocks.el
>> index b8ce4d5..af50b30 100644
>> --- a/contrib/lisp/org-special-blocks.el
>>>>> b/contrib/lisp/org-special-blocks.el
>> @@ -40,17 +40,23 @@
>> ;; user to add this class to his or her stylesheet if this div is to
>> ;; mean anything.

>>> (defvar org-special-blocks-ignore-regexp "^\\(LaTeX\\|HTML\\)$"
>>>  "A regexp indicating the names of blocks that should be ignored
>>> by org-special-blocks.  These blocks will presumably be
>>> interpreted by other mechanisms.")

>> (defun org-special-blocks-make-special-cookies ()
>>   "Adds special cookies when #+begin_foo and #+end_foo tokens are
>> seen.  This is run after a few special cases are taken care of."
>>   (when (or htmlp latexp)
>>     (goto-char (point-min))
>>     (while (re-search-forward "^#\\+\\(begin\\|end\\)_\\(.*\\)$" nil
>> t)
>> -      (replace-match
>> -       (if (equal (downcase (match-string 1)) "begin")
>> -       (concat "ORG-" (match-string 2) "-START")
>> -     (concat "ORG-" (match-string 2) "-END"))
>> -       t t))))
>>>      (unless (string-match-p org-special-blocks-ignore-regexp
>> (match-string 2))
>>>     (replace-match
>>>      (if (equal (downcase (match-string 1)) "begin")
>>>          (concat "ORG-" (match-string 2) "-START")
>>>        (concat "ORG-" (match-string 2) "-END"))
>>>      t t)))))

>> (add-hook 'org-export-preprocess-after-blockquote-hook
>>        'org-special-blocks-make-special-cookies)