From mboxrd@z Thu Jan 1 00:00:00 1970 From: Thorsten Jolitz Subject: Bug in org-src.el? Date: Fri, 01 Feb 2013 15:55:25 +0100 Message-ID: <8738xgf5ia.fsf@googlemail.com> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([208.118.235.92]:37952) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U1I1m-00060O-Km for emacs-orgmode@gnu.org; Fri, 01 Feb 2013 09:55:44 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1U1I1j-0008Tw-Ad for emacs-orgmode@gnu.org; Fri, 01 Feb 2013 09:55:42 -0500 Received: from plane.gmane.org ([80.91.229.3]:59535) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U1I1j-0008Ti-4L for emacs-orgmode@gnu.org; Fri, 01 Feb 2013 09:55:39 -0500 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1U1I1z-0008SJ-Bs for emacs-orgmode@gnu.org; Fri, 01 Feb 2013 15:55:55 +0100 Received: from e178054193.adsl.alicedsl.de ([85.178.54.193]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 01 Feb 2013 15:55:55 +0100 Received: from tjolitz by e178054193.adsl.alicedsl.de with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 01 Feb 2013 15:55:55 +0100 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org 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("^[ ]*,?\\(\\*\\|#\\+\\)" # 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 #) | | #[(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