From e34033fec2c8bbfa000ac291a9889ca49fa5dc17 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Thu, 18 Nov 2010 09:34:21 -0700 Subject: [PATCH] using higher level function for checking list membership Thanks to Nicolas Goaziou for pointing this out * lisp/ob-ref.el (org-babel-ref-at-ref-p): Use higher level function for testing list membership. * lisp/ob.el (org-babel-read-result): Use higher level function for testing list membership. (org-babel-result-end): Use higher level function for testing list membership. --- lisp/ob-ref.el | 2 +- lisp/ob.el | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ob-ref.el b/lisp/ob-ref.el index dd59b3977..e482cb835 100644 --- a/lisp/ob-ref.el +++ b/lisp/ob-ref.el @@ -215,7 +215,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-list-in-item-p-with-indent 0) 'list) + ((org-in-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 30f54b827..96c274434 100644 --- a/lisp/ob.el +++ b/lisp/ob.el @@ -1309,7 +1309,7 @@ following the source block." (let ((case-fold-search t) result-string) (cond ((org-at-table-p) (org-babel-read-table)) - ((org-list-in-item-p-with-indent 0) (org-babel-read-list)) + ((org-in-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]*: ") @@ -1500,7 +1500,7 @@ 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-list-in-item-p-with-indent 0) (- (org-list-bottom-point) 1)) + ((org-in-item-p) (- (org-list-bottom-point) 1)) (t (let ((case-fold-search t)) (cond