[nongnu] elpa/org-contrib da00d0b8fc: lisp/org-eval-light.el: Do not use removed `org-edit-src-find-region-and-lang'

[ELPA Syncer]

branch: elpa/org-contrib
commit da00d0b8fcc959a902f71f115201360e475250aa
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    lisp/org-eval-light.el: Do not use removed 
`org-edit-src-find-region-and-lang'
    
    * lisp/org-eval-light.el (org-eval-light-current-snippet): Use
    org-element API instead of now-removed
    `org-edit-src-find-region-and-lang'.
---
 lisp/org-eval-light.el | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/lisp/org-eval-light.el b/lisp/org-eval-light.el
index bb50df1230..cb82528255 100644
--- a/lisp/org-eval-light.el
+++ b/lisp/org-eval-light.el
@@ -123,15 +123,13 @@ commented by `org-eval-light-make-region-example'."
   (interactive "P")
   (let ((line (org-current-line))
        (case-fold-search t)
-       (info (org-edit-src-find-region-and-lang))
-       beg end lang result)
-    (setq beg (nth 0 info)
-         end (nth 1 info)
-         lang (nth 2 info))
+        (src-block (org-element-at-point))
+       lang result)
+    (setq lang (org-element-property :language src-block))
     (unless (member lang org-eval-light-interpreters)
       (error "Language is not in `org-eval-light-interpreters': %s" lang))
     (org-goto-line line)
-    (setq result (org-eval-light-code lang (buffer-substring beg end)))
+    (setq result (org-eval-light-code lang (org-element-property :value 
src-block)))
     (unless arg
       (save-excursion
        (re-search-forward "^#\\+end_src" nil t) (open-line 1) (forward-char 2)