[elpa] externals/denote 1f0633e3be 05/12: denote-org: add denote-org-extract-subtree error handling

[ELPA Syncer]

branch: externals/denote
commit 1f0633e3be3ad1c07d660ffa0149c12858f91979
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    denote-org: add denote-org-extract-subtree error handling
---
 denote-org.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/denote-org.el b/denote-org.el
index 34bf3c8d46..84e4d0afd4 100644
--- a/denote-org.el
+++ b/denote-org.el
@@ -43,12 +43,13 @@
 The Org-tags are used as note keywords, and the subtree title as note title.
 This command deletes the original subtree."
   (interactive)
-  (let ((text (org-get-entry))
-        (heading (org-get-heading :no-tags :no-todo :no-priority :no-comment))
-        (tags (org-get-tags)))
-    (delete-region (org-entry-beginning-position) (org-entry-end-position))
-    (denote heading tags 'org)
-    (insert text)))
+  (if-let ((text (org-get-entry))
+           (heading (org-get-heading :no-tags :no-todo :no-priority 
:no-comment)))
+      (progn
+        (delete-region (org-entry-beginning-position) (org-entry-end-position))
+        (denote heading (org-get-tags) 'org)
+        (insert text))
+    (user-error "No subtree to extract; aborting")))
 
 ;;; Org-mode Dynamic blocks