Browse Source

org-element: Tiny refactoring

* lisp/org-element.el (org-element--object-lex): Tiny refactoring.
Nicolas Goaziou 8 years ago
parent
commit
0204b0e16f
1 changed files with 2 additions and 2 deletions
  1. 2 2
      lisp/org-element.el

+ 2 - 2
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