|
@@ -72,6 +72,10 @@
|
|
|
(declare-function org-babel-ref-resolve "ob-ref" (ref))
|
|
|
(declare-function org-babel-lob-execute-maybe "ob-lob" ())
|
|
|
(declare-function org-number-sequence "org-compat" (from &optional to inc))
|
|
|
+(declare-function org-in-item-p "org-list" ())
|
|
|
+(declare-function org-list-parse-list "org-list" (&optional delete))
|
|
|
+(declare-function org-list-to-generic "org-list" (LIST PARAMS))
|
|
|
+(declare-function org-list-bottom-point "org-list" ())
|
|
|
|
|
|
(defgroup org-babel nil
|
|
|
"Code block evaluation and management in `org-mode' documents."
|
|
@@ -906,10 +910,9 @@ may be specified at the top of the current buffer."
|
|
|
arg)
|
|
|
(cons (intern (match-string 1 arg))
|
|
|
(org-babel-read (org-babel-chomp (match-string 2 arg))))
|
|
|
- (cons (intern (concat ":" arg)) nil)))
|
|
|
- ;; walk the list splitting on balanced instances of [ \t]:
|
|
|
+ (cons (intern arg) nil)))
|
|
|
(let ((balance 0) (partial nil) (lst nil) (last 0))
|
|
|
- (mapc (lambda (ch)
|
|
|
+ (mapc (lambda (ch) ; split on [] balanced instances of [ \t]:
|
|
|
(setq balance (+ balance
|
|
|
(cond ((equal 91 ch) 1)
|
|
|
((equal 93 ch) -1)
|