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 <chrismg...@gmail.com> 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) Chris Gray wrote: > Eric Schulte wrote: > Hi Eric, >> I tried to recreate this problem but was unable to do so on my >> computer. To recreate I exported >> #+srcname: determine the neighbors of the segments that the bisector hits >> #+begin_src lua :tangle no :exports code >> local s1, s2 = intersecting_segs[1], intersecting_segs[2] >> local n1 = table_find_segment(cell.neighbors, s1) >> local n2 = table_find_segment(cell.neighbors, s2) >> #+end_src >> with my personal Emacs configuration and I got the following in the >> resulting .tex file >> #+begin_example >> \lstset{language=lua} >> \begin{lstlisting} >> local s1, s2 = intersecting_segs[1], intersecting_segs[2] >> local n1 = table_find_segment(cell.neighbors, s1) >> local n2 = table_find_segment(cell.neighbors, s2) >> \end{lstlisting} >> #+end_example > Are you exporting to LaTeX or some intermediate org-based format? I am > just using C-c C-e L to export. Should I be using an org-babel command? >> note that Org-babel shouldn't have any effect here as it currently >> doesn't recognize the lua language. > Sorry, I should have been more clear about that. I have added the > following to my setup. > (org-babel-add-interpreter "lua") > (add-to-list 'org-babel-tangle-langs '("lua" "lua" "#!/usr/bin/env lua")) >> Sorry I can't be of more help. Maybe try with emacs -Q and >> incrementally add your personal configuration until the problem >> re-appears. > Will do. > Cheers, > Chris > _______________________________________________ > 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 -- _______________________________________________ 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