Browse Source

org-element: Speed up parsing

* lisp/org-element.el (org-element-inline-babel-call-successor):
  Improve speed.
Nicolas Goaziou 4 years ago
parent
commit
8012443bc8
1 changed files with 6 additions and 2 deletions
  1. 6 2
      lisp/org-element.el

+ 6 - 2
lisp/org-element.el

@@ -2880,8 +2880,12 @@ CONTENTS is nil."
 Return value is a cons cell whose CAR is `inline-babel-call' and
 CDR is beginning position."
   (save-excursion
-    (when (re-search-forward org-babel-inline-lob-one-liner-regexp nil t)
-      (cons 'inline-babel-call (match-end 1)))))
+    (catch 'exit
+      (while (search-forward "call_" nil t)
+	(save-excursion
+	  (goto-char (match-beginning 0))
+	  (when (looking-at org-babel-inline-lob-one-liner-regexp)
+	    (throw 'exit (cons 'inline-babel-call (point)))))))))
 
 
 ;;;; Inline Src Block