Re: [BUG] org-capture, level-2 heading, org-set-tags-command [9.6.6 ( @ /Users/pu/.emacs.d/elpa/org-9.6.6/)]

[Patrick Useldinger]

On 20/05/2023 22:01, Ihor Radchenko wrote:
> You can try to bisect your config to identify which part is triggering
> the problem. See
> https://list.orgmode.org/orgmode/87ee2nlslt.fsf@localhost/ and
> https://github.com/Malabarba/elisp-bug-hunter

I have been able to create a minimal set of init.el and WORK.org which 
allows me to reproduce the problem:

1) start Emacs
2) F6 (shortcut for capture)
3) x
4) create a task in the capture buffer
5) press C-c C-q and enjoy the loop
6) C-g breaks the loop

OTOH, using t at step 3 works well.
As indicated, the only difference between the remplates x and t is that 
x uses 2 levels of heading, whereas t only uses one.

HTH!


--- WORK.org

;; -*- coding: utf-8 -*-
#+TODO: WAIT(w) TODO(t) DELG(d) | DONE(x)
#+STARTUP: show2levels hidestars nologrepeat
#+ARCHIVE: %s_archive::
* CAPTURE
** Regulars
*** TODO [#C] -- Empty CAP.org/CAPTURE
    SCHEDULED: <2023-05-26 Fri ++1w>
** Cap-X
** WAIT hello 
           :test:
** DONE read "acceptable use"
   DEADLINE: <2023-05-19 Fri>

--- init.el

;; custom variables
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(org-capture-templates
   '(("x" "Todo (test)" entry
      (file+olp "/Users/pu/Workcloud/org/WORK.org" "CAPTURE" "Cap-X")
      "* TODO %^{Task Description}" :prepend t)
     ("t" "Todo (work)" entry
      (file+olp "~/Workcloud/org/WORK.org" "CAPTURE")
      "* TODO %^{Task Description}" :prepend t)
     ("n" "Note (work)" entry
      (file+olp "~/Workcloud/org/WORK.org" "CAPTURE")
      "* %^{Note Description}" :prepend t))))

;; system-specific
(when (eq system-type 'darwin)
  (setq ns-alternate-modifier 'meta)
  (setq ns-right-alternate-modifier nil))

;; package: org
(add-hook
 'org-load-hook
 (lambda ()
   (define-key org-mode-map "\C-ca" 'org-agenda)
   (add-hook
    'org-agenda-load-hook
    (lambda ()
      (define-key org-agenda-mode-map "\M-p" 'org-agenda-backward-block)
      (define-key org-agenda-mode-map "\M-n" 'org-agenda-forward-block)))
   (global-set-key (kbd "<f6>") 'org-capture)))

(defun pu/options ()
  (interactive)
  (pu/option-org))
(add-hook 'window-setup-hook 'pu/options)

(defun pu/option-org ()
  (find-file "~/Workcloud/org/WORK.org"))