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 <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) _______________________________________________ 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