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)
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.
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
--
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-orgmode