Bug in org-src.el?

[Thorsten Jolitz <tjolitz@googlemail.com>]

Hi List, 

when I export a (bit complicated) PicoLisp source block with ':results
html', I get an error:

,----------------------------------------------------
| error: "Invalid search bound (wrong side of point)"
`----------------------------------------------------

The error happens in org-src.el in the function:

,-------------------------------------------
| (defun org-escape-code-in-region (beg end)
|   "Escape lines between BEG and END.
`-------------------------------------------

because beg and end are interchanged, i.e. the function is called with 

,--------------------------------------
| (org-escape-code-in-region 2921 2908)
`--------------------------------------

when 

,------------
| +results:
| +BEGIN_HTML # char 2908 at beginning-of-line
| +END_HTML   # char 2921 at beginning-of-line
`------------

Here is the backtrace:

,------------------------------------------------------------------------
| Debugger entered--Lisp error: (error "Invalid search bound (wrong side
|   of point)") re-search-forward("^[ ]*,?\\(\\*\\|#\\+\\)" #<marker at
|   2908 in picodoc-test.org> t) (while (re-search-forward "^[
|   ]*,?\\(\\*\\|#\\+\\)" end t) (replace-match ",\\1" nil nil nil 1))
|   (save-excursion (goto-char beg) (while (re-search-forward "^[
|   ]*,?\\(\\*\\|#\\+\\)" end t) (replace-match ",\\1" nil nil nil 1)))
|   org-escape-code-in-region(2921 #<marker at 2908 in picodoc-test.org>)
| 
|   #[(start finish &optional no-escape) "b\210
|    \305Pc\210\nb\210\305Pc\210\f\204\306`\"\210b\210\307 b\210\310
|    \211\207" [end finish beg start no-escape "\n"
|    org-escape-code-in-region point-at-eol point-marker]
|    3]("#+BEGIN_HTML" "#+END_HTML")
| 
|   org-babel-insert-result(nil ("html" "output" "replace") ("picolisp" "
|   ... [omitted] ))
| 
|   org-babel-execute-src-block-maybe()
|   org-babel-execute-maybe()
|   org-babel-execute-safely-maybe()
|   run-hook-with-args-until-success(org-babel-execute-safely-maybe)
|   org-ctrl-c-ctrl-c(nil)
|   call-interactively(org-ctrl-c-ctrl-c nil nil)
`------------------------------------------------------------------------


and the system-info:

,-------------------------------------------------------------------
| Org-mode version 7.9.3e (7.9.3e-897-g787a07 @
| /home/tj/gitclone/org-mode/lisp/)
| 
| GNU Emacs 24.2.1 (x86_64-unknown-linux-gnu, GTK+ Version 3.6.4) of
| 2013-01-20 on eric
`-------------------------------------------------------------------


-- 
cheers,
Thorsten