[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] Bug in org-src.el?
From: |
Thorsten Jolitz |
Subject: |
[O] Bug in org-src.el? |
Date: |
Fri, 01 Feb 2013 15:55:25 +0100 |
User-agent: |
Gnus/5.130002 (Ma Gnus v0.2) Emacs/24.2 (gnu/linux) |
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
- [O] Bug in org-src.el?,
Thorsten Jolitz <=