From 78806952218e87f4a413a29c908161f97572f97d Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Sat, 29 Oct 2022 13:25:38 +0800 Subject: [PATCH] org-set-tags-command: Fix handling `org-loop-over-headlines-in-active-region' * lisp/org.el (org-set-tags-command): Respect the non-nil value of `org-loop-over-headlines-in-active-region'. The code is adapted from similar uses in other commands. Reported-by: Alex Giorev Link: https://orgmode.org/list/CAMq3WZh1sGW+BNKW1hZA+wP=iFskzShF-D-wUqWYqb_EponZ8g@mail.gmail.com --- lisp/org.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index a1a84c5b0..9e5b5e8aa 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -11573,13 +11573,12 @@ in Lisp code use `org-set-tags' instead." (cond ((equal '(4) arg) (org-align-tags t)) ((and (org-region-active-p) org-loop-over-headlines-in-active-region) - (let (org-loop-over-headlines-in-active-region) ; hint: infinite recursion. + (let ((cl (if (eq org-loop-over-headlines-in-active-region 'start-level) + 'region-start-level 'region)) + org-loop-over-headlines-in-active-region) ; hint: infinite recursion. (org-map-entries #'org-set-tags-command - nil - (if (eq org-loop-over-headlines-in-active-region 'start-level) - 'region-start-level - 'region) + nil cl (lambda () (when (org-invisible-p) (org-end-of-subtree nil t)))))) (t (save-excursion