branch: externals/denote-sequence
commit 44f87ca2ba5c33b7202a1c03747d1cc8a5dab2ca
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Simplify denote-sequence-hierarchy-get-level
---
denote-sequence.el | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/denote-sequence.el b/denote-sequence.el
index a1d0bf8e1a..a305cba5e7 100644
--- a/denote-sequence.el
+++ b/denote-sequence.el
@@ -1289,9 +1289,8 @@ CHECK THE RESULTING SEQUENCES FOR DUPLICATES."
(defun denote-sequence-hierarchy-get-level ()
"Return the outline level at point."
- (if-let* ((level (get-text-property (point)
'denote-sequence-hierarchy-level)))
- level
- (user-error "No outline level found at position `%s'" position)))
+ (or (get-text-property (point) 'denote-sequence-hierarchy-level)
+ (user-error "No outline level found at position `%s'" position)))
(defun denote-sequence-hierarchy-find-file (position)
"Find the file at POSITION in `denote-sequence-view-hierarchy' buffer.
