[elpa] externals/org-transclusion ac2b6b5926 1/2: fix(src-lines): #192 error when :thing-at-point nil

[ELPA Syncer]

branch: externals/org-transclusion
commit ac2b6b59267bf322e54661ed7467cb8695bbd926
Author: Noboru Ota <me@nobiot.com>
Commit: Noboru Ota <me@nobiot.com>

    fix(src-lines): #192 error when :thing-at-point nil
---
 org-transclusion-src-lines.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/org-transclusion-src-lines.el b/org-transclusion-src-lines.el
index e07ffcb90d..e7511baa11 100644
--- a/org-transclusion-src-lines.el
+++ b/org-transclusion-src-lines.el
@@ -17,7 +17,7 @@
 
 ;; Author: Noboru Ota <me@nobiot.com>
 ;; Created: 24 May 2021
-;; Last modified: 23 May 2023
+;; Last modified: 23 June 2023
 
 ;;; Commentary:
 ;;  This is an extension to `org-transclusion'.  When active, it adds features
@@ -127,8 +127,9 @@ it means from line 10 to the end of file."
          (entry-pos) (buf)
          (lines (plist-get plist :lines))
          (end-search-op (plist-get plist :end))
-         (thing-at-point (cadr (split-string (plist-get plist 
:thing-at-point))))
-         (thing-at-point (when thing-at-point (make-symbol thing-at-point))))
+         (thing-at-point (plist-get plist :thing-at-point))
+         (thing-at-point (when thing-at-point
+                           (make-symbol (cadr (split-string 
thing-at-point))))))
     (if (not (string= type "id")) (setq buf (find-file-noselect path))
       (let ((filename-pos (org-id-find path)))
         (setq buf (find-file-noselect (car filename-pos)))