From 0204b0e16f834ca54ade988257725f31eaaedbce Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Tue, 25 Oct 2016 18:28:37 +0200 Subject: [PATCH] org-element: Tiny refactoring * lisp/org-element.el (org-element--object-lex): Tiny refactoring. --- lisp/org-element.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-element.el b/lisp/org-element.el index 9fcecf5bf..2fe68c6f9 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -4367,10 +4367,10 @@ to an appropriate container (e.g., a paragraph)." (let ((result (match-string 0))) (setq found (cond - ((eq (compare-strings result nil nil "call_" nil nil t) t) + ((string-prefix-p "call_" result t) (and (memq 'inline-babel-call restriction) (org-element-inline-babel-call-parser))) - ((eq (compare-strings result nil nil "src_" nil nil t) t) + ((string-prefix-p "src_" result t) (and (memq 'inline-src-block restriction) (org-element-inline-src-block-parser))) (t -- 2.11.4.GIT