|
@@ -166,7 +166,11 @@ options are taken from `org-babel-default-header-args'."
|
|
(interactive)
|
|
(interactive)
|
|
(save-excursion
|
|
(save-excursion
|
|
(goto-char start)
|
|
(goto-char start)
|
|
- (while (and (< (point) end)
|
|
|
|
|
|
+ (unless (markerp end)
|
|
|
|
+ (let ((m (make-marker)))
|
|
|
|
+ (set-marker m end (current-buffer))
|
|
|
|
+ (setq end m)))
|
|
|
|
+ (while (and (< (point) (marker-position end))
|
|
(re-search-forward org-babel-lob-one-liner-regexp end t))
|
|
(re-search-forward org-babel-lob-one-liner-regexp end t))
|
|
(unless (org-babel-in-example-or-verbatim)
|
|
(unless (org-babel-in-example-or-verbatim)
|
|
(let* ((lob-info (org-babel-lob-get-info))
|
|
(let* ((lob-info (org-babel-lob-get-info))
|
|
@@ -188,9 +192,6 @@ options are taken from `org-babel-default-header-args'."
|
|
(butlast lob-info) " ")))))
|
|
(butlast lob-info) " ")))))
|
|
"" nil (car (last lob-info)))
|
|
"" nil (car (last lob-info)))
|
|
'lob)))))
|
|
'lob)))))
|
|
- (setq end (+ end (- (length rep)
|
|
|
|
- (- (length (match-string 0))
|
|
|
|
- (length (or (match-string 11) ""))))))
|
|
|
|
(if inlinep
|
|
(if inlinep
|
|
(save-excursion
|
|
(save-excursion
|
|
(goto-char inline-start)
|
|
(goto-char inline-start)
|