[elpa] externals/org a80efaf460 072/101: org-element-node-property-parser: Remove unnecessary regexp search

[ELPA Syncer]

branch: externals/org
commit a80efaf460d989e07c03be920ae621b8ab87f24b
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org-element-node-property-parser: Remove unnecessary regexp search
    
    * lisp/org-element.el (org-element-node-property-parser): Remove
    unnecessary `re-search-forward'.  It always triggers as long as
    `org-property-drawer-re' only allow node properties inside property
    drawer.  Also, remove unnecessary `case-fold-search' setting that has
    no meaning since we do not match against specific letters.
---
 lisp/org-element.el | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index d368653a5a..b53f726360 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -2556,25 +2556,18 @@ Assume point is at the beginning of the latex 
environment."
 
 ;;;; Node Property
 
-(defun org-element-node-property-parser (limit)
+(defun org-element-node-property-parser (_)
   "Parse a node-property at point.
 
-LIMIT bounds the search.
-
 Return a new syntax node of `node-property' type containing `:key',
 `:value', `:begin', `:end', `:post-blank' and `:post-affiliated'
 properties."
   (looking-at org-property-re)
-  (let ((case-fold-search t)
-       (begin (point))
+  (let ((begin (point))
        (key   (org-element--get-cached-string
                 (match-string-no-properties 2)))
        (value (match-string-no-properties 3))
-       (end (save-excursion
-              (end-of-line)
-              (if (re-search-forward org-property-re limit t)
-                  (line-beginning-position)
-                limit))))
+       (end (min (point-max) (1+ (match-end 0)))))
     (org-element-create
      'node-property
      (list :key key