mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

org-element: Tiny speed-up 

* lisp/org-element.el (org-element--object-lex): Do not search for radio
  targets when they are not allowed in current restriction.
This commit is contained in:
Nicolas Goaziou 2016-10-27 00:47:11 +02:00
parent a300f362a0
commit 018772a795
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-element.el
View File

@ -4358,6 +4358,7 @@ to an appropriate container (e.g., a paragraph)."
(limit
(save-excursion
(cond ((not org-target-link-regexp) nil)
((not (memq 'link restriction)) nil)
((progn
(unless (bolp) (forward-char -1))
(not (re-search-forward org-target-link-regexp nil t)))
@ -4375,7 +4376,7 @@ to an appropriate container (e.g., a paragraph)."
found)
(save-excursion
(while (and (not found)
(re-search-forward org-element--object-regexp limit t))
(re-search-forward org-element--object-regexp limit 'move))
(goto-char (match-beginning 0))
(let ((result (match-string 0)))
(setq found
@ -4445,9 +4446,8 @@ to an appropriate container (e.g., a paragraph)."
(org-element-link-parser)))))))
(or (eobp) (forward-char))))
(cond (found)
;; Radio link.
((and limit (memq 'link restriction))
(goto-char limit) (org-element-link-parser)))))))
(limit (org-element-link-parser)) ;radio link
(t nil))))))
(defun org-element--parse-objects (beg end acc restriction &optional parent)
"Parse objects between BEG and END and return recursive structure.