From 1e9a3e6edf353c7cb405fb74164c4b29f39fecd8 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 11 Sep 2023 23:18:51 +0200 Subject: [PATCH] fix(lib): doom-docs-mode: hiding property drawers Includes a minor optimization: reading the current level from an org-element object, rather than relying on (org-current-level), which resorts to walking the buffer with regex. --- lisp/lib/docs.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lisp/lib/docs.el b/lisp/lib/docs.el index bd609ccc0..2052f78f3 100644 --- a/lisp/lib/docs.el +++ b/lisp/lib/docs.el @@ -239,11 +239,9 @@ (beg (max (point-min) (1- (org-element-property :begin el)))) (end (org-element-property :end el)) ((memq (org-element-type el) '(drawer property-drawer)))) - (when (org-current-level) + (when (org-element-property-inherited :level el) (cl-decf end)) - (org-fold-core-region beg end doom-docs-mode 'doom-doc-hidden) - (when doom-docs-mode - (org-fold-core-region beg end nil 'org-hide-drawer))))) + (org-fold-core-region beg end doom-docs-mode 'doom-doc-hidden)))) ;; FIX: If the cursor remains within a newly folded region, that folk will ;; come undone, so we move it. (if pt (goto-char pt))))