Browse Source

Merge branch 'master' of git+ssh://repo.or.cz/srv/git/org-mode

Carsten Dominik 15 năm trước cách đây
mục cha
commit
de5d40ba98
1 tập tin đã thay đổi với 4 bổ sung2 xóa
  1. 4 2
      contrib/babel/lisp/org-babel-ref.el

+ 4 - 2
contrib/babel/lisp/org-babel-ref.el

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