From 426d4182b3ea6817567a41c667bd37bb34d42ce7 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Tue, 22 Feb 2011 21:12:13 -0700 Subject: [PATCH] ob: more adjustments for new list handling * lisp/ob-ref.el (org-babel-ref-at-ref-p): Only try to read results as a list if at the *beginning* of a list item. * lisp/ob.el (org-babel-read-result): Only try to read results as a list if at the *beginning* of a list item. --- lisp/ob-ref.el | 2 +- lisp/ob.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/ob-ref.el b/lisp/ob-ref.el index dba19243b..6cb41ae65 100644 --- a/lisp/ob-ref.el +++ b/lisp/ob-ref.el @@ -217,7 +217,7 @@ to \"0:-1\"." Return nil if none of the supported reference types are found. Supported reference types are tables and source blocks." (cond ((org-at-table-p) 'table) - ((org-in-item-p) 'list) + ((org-at-item-p) 'list) ((looking-at "^[ \t]*#\\+BEGIN_SRC") 'source-block) ((looking-at org-bracket-link-regexp) 'file) ((looking-at org-babel-result-regexp) 'results-line))) diff --git a/lisp/ob.el b/lisp/ob.el index 4d00cc563..6e982637a 100644 --- a/lisp/ob.el +++ b/lisp/ob.el @@ -1363,7 +1363,7 @@ following the source block." (let ((case-fold-search t) result-string) (cond ((org-at-table-p) (org-babel-read-table)) - ((org-in-item-p) (org-babel-read-list)) + ((org-at-item-p) (org-babel-read-list)) ((looking-at org-bracket-link-regexp) (org-babel-read-link)) ((looking-at org-block-regexp) (org-babel-trim (match-string 4))) ((looking-at "^[ \t]*: ")