mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 18:00:49 +00:00
Code Releases Activity

babel: `org-babel-ref-resolve-reference' doesn't break paren nesting when resolving indicies

Browse source
This commit is contained in:
Eric Schulte 2010-04-24 13:26:34 -06:00
parent b8adc74894
commit 44bb82d38e
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
contrib/babel/lisp/org-babel-ref.el
View file

@ -98,8 +98,10 @@ return nil."
(let ((case-fold-search t) (let ((case-fold-search t)
type args new-refere new-referent result lob-info split-file split-ref type args new-refere new-referent result lob-info split-file split-ref
index index-row index-col) index index-row index-col)
;; if ref is indexed grab the indices ;; if ref is indexed grab the indices -- beware nested indicies
(when (string-match "\\[\\(.+\\)\\]" ref) (when (and (string-match "\\[\\(.+\\)\\]" ref)
(let ((str (substring ref 0 (match-beginning 0))))
(= (count ?( str) (count ?) str))))
(setq index (match-string 1 ref)) (setq index (match-string 1 ref))
(setq ref (substring ref 0 (match-beginning 0)))) (setq ref (substring ref 0 (match-beginning 0))))
;; assign any arguments to pass to source block ;; assign any arguments to pass to source block