diff options
author | Tom Willemse | 2023-04-11 20:20:28 -0700 |
---|---|---|
committer | Tom Willemse | 2023-04-11 20:20:28 -0700 |
commit | 1de5e3892cd22f3c2324865753149769afd3b2c3 (patch) | |
tree | 7b49ed2b32b0b50f2c66f8be552fa4b563cf72ad /oni-org/oni-org.el | |
parent | f460c3a19fb9477d63c5f7bbda90c7c7c283dcca (diff) | |
download | emacs-config-1de5e3892cd22f3c2324865753149769afd3b2c3.tar.gz emacs-config-1de5e3892cd22f3c2324865753149769afd3b2c3.zip |
[oni-org] Simplify org element property access
Diffstat (limited to 'oni-org/oni-org.el')
-rw-r--r-- | oni-org/oni-org.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/oni-org/oni-org.el b/oni-org/oni-org.el index 7164040..7a95721 100644 --- a/oni-org/oni-org.el +++ b/oni-org/oni-org.el @@ -1083,10 +1083,9 @@ placed above TARGET. Otherwise it will be placed below it." (goto-char (point-min)) (org-forward-heading-same-level 1) (let* ((element (org-element-at-point-no-context)) - (element-data (when element (cadr element))) - (element-title (when element-data (map-elt element-data :raw-value))) - (contents-begin (when element-data (map-elt element-data :contents-begin))) - (contents-end (when element-data (map-elt element-data :contents-end)))) + (element-title (org-element-property :raw-value element)) + (contents-begin (org-element-property :contents-begin element)) + (contents-end (org-element-property :contents-end element))) (when contents-begin (let ((text (buffer-substring-no-properties contents-begin contents-end))) (delete-region contents-begin contents-end) |