From b219690f0554adfe5fa2d2aebf8c0b08b1d04859 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 9 Jan 2011 16:25:01 +0100 Subject: [PATCH] ob: compute correct end position when results are a list * lisp/ob.el (org-babel-result-end): end position is end of current sublist instead of bottom point, as results might be inserted in a list themselves. --- lisp/ob.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/ob.el b/lisp/ob.el index f52fb6bb5..e0949fcb9 100644 --- a/lisp/ob.el +++ b/lisp/ob.el @@ -77,7 +77,8 @@ (declare-function org-list-parse-list "org-list" (&optional delete)) (declare-function org-list-to-generic "org-list" (LIST PARAMS)) (declare-function org-list-struct "org-list" ()) -(declare-function org-list-get-bottom-point "org-list" (struct)) +(declare-function org-list-struct-prev-alist "org-list" (struct)) +(declare-function org-list-get-list-end "org-list" (item struct prevs)) (defgroup org-babel nil "Code block evaluation and management in `org-mode' documents." @@ -1583,9 +1584,9 @@ code ---- the results are extracted in the syntax of the source (save-excursion (cond ((org-at-table-p) (progn (goto-char (org-table-end)) (point))) - ((org-at-item-p) (save-excursion - (org-beginning-of-item) - (1- (org-list-get-bottom-point (org-list-struct))))) + ((org-at-item-p) (let* ((struct (org-list-struct)) + (prevs (org-list-struct-prev-alist struct))) + (org-list-get-list-end (point-at-bol) struct prevs))) (t (let ((case-fold-search t) (blocks-re (regexp-opt