tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-element-inlinetask-parser: Use deferred properties

This commit is contained in:
Ihor Radchenko 2023-04-26 16:53:20 +02:00
parent 932c49c7bb
commit daebeb6446
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lisp/org-element.el
View File

@ -1277,15 +1277,16 @@ Assume point is at beginning of the inline task."
(mapcar #'org-element--get-cached-string
(org-split-string (match-string-no-properties 1) ":"))))
(title-end (point))
(raw-value (org-trim
(buffer-substring-no-properties title-start title-end)))
(archivedp (member org-element-archive-tag tags))
(raw-value-deferred
(org-element-deferred
nil #'org-element--headline-raw-value
(- title-start begin) (- title-end begin)))
(archivedp (if (member org-element-archive-tag tags) t nil))
(task-end (save-excursion
(end-of-line)
(and (re-search-forward org-element-headline-re limit t)
(looking-at-p "[ \t]*END[ \t]*$")
(line-beginning-position))))
(standard-props (and task-end (org-element--get-node-properties)))
(time-props (and task-end (org-element--get-time-properties)))
(contents-begin (and task-end
(< (point) task-end)
@ -1302,7 +1303,7 @@ Assume point is at beginning of the inline task."
(org-element-create
'inlinetask
(nconc
(list :raw-value raw-value
(list :raw-value raw-value-deferred
:begin begin
:end end
:pre-blank
@ -1321,12 +1322,16 @@ Assume point is at beginning of the inline task."
:commentedp commentedp
:secondary (alist-get
'inlinetask
org-element-secondary-value-alist))
time-props
standard-props))))
org-element-secondary-value-alist)
:deferred
(and task-end
(org-element-deferred
t #'org-element-headline-parser--deferred))
:buffer (current-buffer))
time-props))))
(org-element-put-property
inlinetask :title
(if raw-secondary-p raw-value
(if raw-secondary-p (org-element-deferred-alias :raw-value)
(org-element--parse-objects
(progn (goto-char title-start)
(skip-chars-forward " \t")