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 <uselpa@gmail.com>]

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"))