From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp11.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms9.migadu.com with LMTPS id WA38B10iPWQDWAEASxT56A (envelope-from ) for ; Mon, 17 Apr 2023 12:41:33 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp11.migadu.com with LMTPS id oBn4B10iPWS8xgAA9RJhRA (envelope-from ) for ; Mon, 17 Apr 2023 12:41:33 +0200 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 6D85BD39E for ; Mon, 17 Apr 2023 12:41:32 +0200 (CEST) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1poMI1-00089F-NE; Mon, 17 Apr 2023 06:40:53 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1poMHz-00088w-5u for emacs-orgmode@gnu.org; Mon, 17 Apr 2023 06:40:51 -0400 Received: from mail-oa1-x31.google.com ([2001:4860:4864:20::31]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1poMHt-0001v3-Db for emacs-orgmode@gnu.org; Mon, 17 Apr 2023 06:40:47 -0400 Received: by mail-oa1-x31.google.com with SMTP id 586e51a60fabf-1842e8a8825so29950380fac.13 for ; Mon, 17 Apr 2023 03:40:42 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20221208; t=1681728042; x=1684320042; h=cc:to:subject:message-id:date:from:in-reply-to:references :mime-version:from:to:cc:subject:date:message-id:reply-to; bh=fXRx8Y7oztGN0NjSueiRMiyO1SS+ym7+MCnzVLBB9Ko=; b=qHvlMUYc6tSdh4gvBhSvvbPvBSyRejc/lgsTo60vcijT9QOtlE1WjGvMULlmk1csIE PjbC2ounAl86O8qVaLEkF3rMNTp4ebNw7kZhWQP0kT2zLFDGgr0Np6uMVWmBju9gKLsk 4+ApqjxWVP0tgyrkvu3uaKpd1Bko13eB/qQam6l3zq4vP5Wc3As9ulGKeleYLr93YvxW 337MfgGAQhWyr89Uy+txVkvHIiVzSoB+PjcIQDA8nEHnlfpaGKgWOK41wRan8sIi5zBz ZBr1u1NyOrqaN2OFXWqksvMQ1U9nO56aK+PHZehbK2KvY/bJI0gHfb82eH/UpxMhxnwF viWw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20221208; t=1681728042; x=1684320042; h=cc:to:subject:message-id:date:from:in-reply-to:references :mime-version:x-gm-message-state:from:to:cc:subject:date:message-id :reply-to; bh=fXRx8Y7oztGN0NjSueiRMiyO1SS+ym7+MCnzVLBB9Ko=; b=JN+x7XINPtEBPnRP74lZPFzWbTisb+aMb3EKUQW7VGZcrMTDwCNEVlpkRTEwYg7lEJ zIMu6w7hNmITC9ytq1T+c3DRyHC3WT/eOEj0qpUnuu3utCRkTJdsiV79Uv0EsqhWfqOc jd/+3zCay6DVRqbRNdvPkCBLaPJNFoA22cIWsCZ8+W0CIgPVzG2OfQMGLYZ5UDDWvPLh N+iLYU+EGc5ZNcdihXi9u1NMg9QSNwoktZKbF3nB0dGwJhPCn6XqnPG2g576NahqPZVP DBqUlmjUpRG9zmMrFwNK5shDDwhauAC1cyGjqG6uOKuasIqaqko2+ScVDaez7Fzv6vQP JhSQ== X-Gm-Message-State: AAQBX9fxxbC4S63GbjGow0h1ge+Vj6eqqE+9NXMUMBuMIkEA56ssbAh5 J0N9x43T3ByJbRElqQPSwOa617ZnoGeXZSmg1VqPaIb9 X-Google-Smtp-Source: AKy350afs7nCbR9PEOaT0vgXByes4S49w95tPka2Lys2GBsiXMEu+DkQjyrtsnmwtnVI4vOQhshh7PGuNC6xyKm9A6k= X-Received: by 2002:a05:6870:b619:b0:187:c31b:7ace with SMTP id cm25-20020a056870b61900b00187c31b7acemr3294368oab.1.1681728041762; Mon, 17 Apr 2023 03:40:41 -0700 (PDT) MIME-Version: 1.0 References: <877cusauyq.fsf@localhost> <871ql0ar16.fsf@localhost> <230E1B66-880A-468E-BEB0-33A3C88858D1@gmail.com> <87y1n7ao17.fsf@localhost> <87edokt499.fsf@localhost> In-Reply-To: <87edokt499.fsf@localhost> From: Carlo Tambuatco Date: Mon, 17 Apr 2023 06:40:05 -0400 Message-ID: Subject: Re: [BUG] Org-9.6.x org templates hang on 'clipboard pasted as level 2 subtree'... To: Ihor Radchenko Cc: Org-Mode Mailing List Content-Type: multipart/alternative; boundary="00000000000089c45705f985d211" Received-SPF: pass client-ip=2001:4860:4864:20::31; envelope-from=oraclmaster@gmail.com; helo=mail-oa1-x31.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, HTML_MESSAGE=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: emacs-orgmode-bounces+larch=yhetil.org@gnu.org X-Migadu-Flow: FLOW_IN X-Migadu-Country: US ARC-Seal: i=1; s=key1; d=yhetil.org; t=1681728092; a=rsa-sha256; cv=none; b=goE73CY02khUCLrpNW/O6uUcCU+Km3N7NQnk20vj/NBwmtqhvQmQKuI8XZJxtwhab3Pl2O +rylhhK49uMHokekf9BTMyHujHQXoJyp9o5xzW47LACwLvC4dRuvpi8yeq0KsEuI7CrNAy vPpnIOl9eFtSAw7sPoE3tfXAUJODMj6HaGV6DxicAu9VHXV5swrF2SocyCsF1vxQ7BJnaA /79QTFItt39U9l6o/Sb/83eH/yZ6IiA94/bwPHzm9101zbBKbTpwyW18B74d1O4XHpUzm3 GEM5C6tdQolK1DLhPgPyv8TGDoPmTkeB3c4P2TmHWLbRKU6R438agEMyTOXRQw== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=pass header.d=gmail.com header.s=20221208 header.b=qHvlMUYc; spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org"; dmarc=pass (policy=none) header.from=gmail.com ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1681728092; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=fXRx8Y7oztGN0NjSueiRMiyO1SS+ym7+MCnzVLBB9Ko=; b=Jk3JvH+Oh00/8zHDCUwODWxXodpDROHROg5lWSUWguV2kHFD8TR13cOi3M8RZtNoAccPPB kS6jYqqqW4aueL55UlnGYe/hm6Tb2hrDlU9UQZHQYUeFGEWqlqSGwXf5x2j856E4Iw2u8P A2zJFDhX+FLZ1OZ8cUBBKzhceNREy2KxD59Q0NHSsjjxs16iIzgzB9IuvDWDpdaDhL0lXG 1f+0Te306S9V1TWInfW7DgxVaBZ4On8DctCj2hgrblq7vWwuRnHX0oZGgcwafgLRcs3Wv9 ImYiNtn13WVmSWLm41Keda7ffj7Oxq8dxQDC28h65HLshujQQvx169sc2G+hXg== X-Migadu-Queue-Id: 6D85BD39E Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=gmail.com header.s=20221208 header.b=qHvlMUYc; spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org"; dmarc=pass (policy=none) header.from=gmail.com X-Migadu-Scanner: scn0.migadu.com X-Migadu-Spam-Score: -11.24 X-Spam-Score: -11.24 X-TUID: Q3OkDdhF8DkA --00000000000089c45705f985d211 Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable I've decided to delete the org-9.6 folder entirely and go with the built-in org-9.5.5 that comes with my emacs distribution, emacs-28.2 (9.0). Maybe for some reason newer versions of org are just incompatible with my version of emacs 28.2. Maybe the version of emacs you're using is newer or somehow more compatible with these bleeding edge development versions of org-mode, but I suppose when I upgrade my emacs the version of org that comes with it (9.6, I suppose) will just work out of the box. At any rate, I can't spend any more time and energy on this. I'll stick to what works. Thanks for the help. On Sun, Apr 16, 2023 at 8:09=E2=80=AFAM Ihor Radchenko wrote: > Carlo Tambuatco writes: > > > I restarted emacs with org 9.6.3 and reloaded it uncompiled and > > did M-x toggle-debug-on-error to turn on backtrace on error. > > > > I have also attached a copy of what my org-capture-templates > > variable looks like. > > > > Comparing these backtraces to my org-capture-templates, > > you can see that only some of them fail (the ones corresponding to > > 'd', 'e', 'r', 'Rr', 'Rg', and 'Cc') > > > > They all worked up until Org 9.6. They still work under Org 9.5.5, so > > I don't know what changed. > > I tried your templates locally and I am not seeing any problem. > > May you try to reproduce starting from emacs -Q? > Or, alternatively, try to use the following version of Org capture, use > C-g to exit, and report the (hopefully) more detailed backtrace. > > (defun org-capture (&optional goto keys) > "Capture something. > \\ > This will let you select a template from `org-capture-templates', and > then file the newly captured information. The text is immediately > inserted at the target location, and an indirect buffer is shown where > you can edit it. Pressing `\\[org-capture-finalize]' brings you back to > the \ > previous > state of Emacs, so that you can continue your work. > > When called interactively with a `\\[universal-argument]' prefix argument= \ > GOTO, don't > capture anything, just go to the file/headline where the selected > template stores its notes. > > With a `\\[universal-argument] \\[universal-argument]' prefix argument, g= o > to \ > the last note stored. > > When called with a `C-0' (zero) prefix, insert a template at point. > > When called with a `C-1' (one) prefix, force prompting for a date when > a datetree entry is made. > > ELisp programs can set KEYS to a string associated with a template > in `org-capture-templates'. In this case, interactive selection > will be bypassed. > > If `org-capture-use-agenda-date' is non-nil, capturing from the > agenda will use the date at point as the default date. Then, a > `C-1' prefix will tell the capture process to use the HH:MM time > of the day at point (if any) or the current HH:MM time." > (interactive "P") > (when (and org-capture-use-agenda-date > (eq major-mode 'org-agenda-mode)) > (setq org-overriding-default-time > (org-get-cursor-date (equal goto 1)))) > (cond > ((equal goto '(4)) (org-capture-goto-target keys)) > ((equal goto '(16)) (org-capture-goto-last-stored)) > (t > (let* ((orig-buf (current-buffer)) > (annotation (if (and (boundp > 'org-capture-link-is-already-stored) > org-capture-link-is-already-stored) > (plist-get org-store-link-plist :annotation) > (ignore-errors (org-store-link nil)))) > (entry (or org-capture-entry (org-capture-select-template > keys))) > initial) > (setq initial (or org-capture-initial > (and (org-region-active-p) > (buffer-substring (point) (mark))))) > (when (stringp initial) > (remove-text-properties 0 (length initial) '(read-only t) initial= )) > (when (stringp annotation) > (remove-text-properties 0 (length annotation) > '(read-only t) annotation)) > (cond > ((equal entry "C") > (customize-variable 'org-capture-templates)) > ((equal entry "q") > (user-error "Abort")) > (t > (org-capture-set-plist entry) > (org-capture-get-template) > (org-capture-put :original-buffer orig-buf > :original-file (or (buffer-file-name orig-buf) > (and (featurep 'dired) > (car (rassq orig-buf > > dired-buffers)))) > :original-file-nondirectory > (and (buffer-file-name orig-buf) > (file-name-nondirectory > (buffer-file-name orig-buf))) > :annotation annotation > :initial initial > :return-to-wconf (current-window-configuration) > :default-time (or org-overriding-default-time > (org-current-time))) > (org-capture-set-target-location (and (equal goto 0) 'here)) > (condition-case error > (org-capture-put :template (org-capture-fill-template)) > ((error quit) > (if (get-buffer "*Capture*") (kill-buffer "*Capture*")) > (error "Capture abort: %s" (error-message-string error)))) > > (setq org-capture-clock-keep (org-capture-get :clock-keep)) > (org-capture-place-template > (eq (car (org-capture-get :target)) 'function)) > (when (and (derived-mode-p 'org-mode) (org-capture-get :clock-in)= ) > (condition-case nil > (progn > (when (org-clock-is-active) > (org-capture-put :interrupted-clock > (copy-marker org-clock-marker))) > (org-clock-in) > (setq-local org-capture-clock-was-started > (copy-marker org-clock-marker))) > (error "Could not start the clock in this capture buffer"))) > (when (org-capture-get :immediate-finish) > (org-capture-finalize)))))))) > > -- > Ihor Radchenko // yantar92, > Org mode contributor, > Learn more about Org mode at . > Support Org development at , > or support my work at > --00000000000089c45705f985d211 Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
I've decided to delete the org-9.6 folder entirely and= go with the=C2=A0
built-in org-9.5.5 that comes with my emacs distribu= tion, emacs-28.2 (9.0).

Maybe for some=C2=A0reason= newer versions of org are just incompatible with=C2=A0
my versio= n of emacs 28.2. Maybe the version of emacs you're using is=C2=A0
=
newer or somehow more compatible with these bleeding edge development= =C2=A0
versions of org-mode, but I suppose when I upgrade my emac= s the version=C2=A0
of org that comes with it (9.6, I suppose) wi= ll just work out of the box.=C2=A0

At any rate, I = can't spend any more time and energy on this. I'll stick to=C2=A0
what works. Thanks for the help.

On Sun, Apr 16, 2023 at 8:09= =E2=80=AFAM Ihor Radchenko <yanta= r92@posteo.net> wrote:
Carlo Tambuatco <oraclmaster@gmail.com> writes:

> I restarted emacs with org 9.6.3 and reloaded it uncompiled and
> did M-x toggle-debug-on-error to turn on backtrace on error.
>
> I have also attached a copy of what my org-capture-templates
> variable looks like.
>
> Comparing these backtraces to my org-capture-templates,
> you can see that only some of them fail (the ones corresponding to
> 'd', 'e', 'r', 'Rr', 'Rg', and= 'Cc')
>
> They all worked up until Org 9.6. They still work under Org 9.5.5, so<= br> > I don't know what changed.

I tried your templates locally and I am not seeing any problem.

May you try to reproduce starting from emacs -Q?
Or, alternatively, try to use the following version of Org capture, use
C-g to exit, and report the (hopefully) more detailed backtrace.

(defun org-capture (&optional goto keys)
=C2=A0 "Capture something.
\\<org-capture-mode-map>
This will let you select a template from `org-capture-templates', and then file the newly captured information.=C2=A0 The text is immediately
inserted at the target location, and an indirect buffer is shown where
you can edit it.=C2=A0 Pressing `\\[org-capture-finalize]' brings you b= ack to the \
previous
state of Emacs, so that you can continue your work.

When called interactively with a `\\[universal-argument]' prefix argume= nt \
GOTO, don't
capture anything, just go to the file/headline where the selected
template stores its notes.

With a `\\[universal-argument] \\[universal-argument]' prefix argument,= go to \
the last note stored.

When called with a `C-0' (zero) prefix, insert a template at point.

When called with a `C-1' (one) prefix, force prompting for a date when<= br> a datetree entry is made.

ELisp programs can set KEYS to a string associated with a template
in `org-capture-templates'.=C2=A0 In this case, interactive selection will be bypassed.

If `org-capture-use-agenda-date' is non-nil, capturing from the
agenda will use the date at point as the default date.=C2=A0 Then, a
`C-1' prefix will tell the capture process to use the HH:MM time
of the day at point (if any) or the current HH:MM time."
=C2=A0 (interactive "P")
=C2=A0 (when (and org-capture-use-agenda-date
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(eq major-mode 'org-age= nda-mode))
=C2=A0 =C2=A0 (setq org-overriding-default-time
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (org-get-cursor-date (equal goto 1)))) =C2=A0 (cond
=C2=A0 =C2=A0((equal goto '(4))=C2=A0 (org-capture-goto-target keys)) =C2=A0 =C2=A0((equal goto '(16)) (org-capture-goto-last-stored))
=C2=A0 =C2=A0(t
=C2=A0 =C2=A0 (let* ((orig-buf (current-buffer))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(annotation (if (and (boundp '= org-capture-link-is-already-stored)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 org-capture-link-is-already-stored)<= br> =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0(plist-get org-store-link-plist :annotation)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0(ignore-errors (org-store-link nil))))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(entry (or org-capture-entry (org-= capture-select-template keys)))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0initial)
=C2=A0 =C2=A0 =C2=A0 (setq initial (or org-capture-initial
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 (and (org-region-active-p)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(buffer-substring (point) (mark)))))
=C2=A0 =C2=A0 =C2=A0 (when (stringp initial)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 (remove-text-properties 0 (length initial) '= ;(read-only t) initial))
=C2=A0 =C2=A0 =C2=A0 (when (stringp annotation)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 (remove-text-properties 0 (length annotation) =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 '(read-only t) annotation))
=C2=A0 =C2=A0 =C2=A0 (cond
=C2=A0 =C2=A0 =C2=A0 =C2=A0((equal entry "C")
=C2=A0 =C2=A0 =C2=A0 =C2=A0 (customize-variable 'org-capture-templates)= )
=C2=A0 =C2=A0 =C2=A0 =C2=A0((equal entry "q")
=C2=A0 =C2=A0 =C2=A0 =C2=A0 (user-error "Abort"))
=C2=A0 =C2=A0 =C2=A0 =C2=A0(t
=C2=A0 =C2=A0 =C2=A0 =C2=A0 (org-capture-set-plist entry)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 (org-capture-get-template)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 (org-capture-put :original-buffer orig-buf
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0:original-file (or (buffer-file-name orig-buf)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 (and (featurep 'dired)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0(car (rassq orig-buf
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0dired-= buffers))))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0:original-file-nondirectory
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0(and (buffer-file-name orig-buf)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (file-name-nondirectory
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(buffer-file-name orig-buf)))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0:annotation annotation
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0:initial initial
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0:return-to-wconf (current-window-configuration)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0:default-time (or org-overriding-default-time
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0(org-current-time)))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 (org-capture-set-target-location (and (equal go= to 0) 'here))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 (condition-case error
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (org-capture-put :template (org-c= apture-fill-template))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 ((error quit)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(if (get-buffer "*Capture*&qu= ot;) (kill-buffer "*Capture*"))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(error "Capture abort: %s&quo= t; (error-message-string error))))

=C2=A0 =C2=A0 =C2=A0 =C2=A0 (setq org-capture-clock-keep (org-capture-get := clock-keep))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (org-capture-place-template
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(eq (car (org-capture-get := target)) 'function))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 (when (and (derived-mode-p 'org-mode) (org-= capture-get :clock-in))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (condition-case nil
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (progn
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (when (org-clock-is= -active)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (org-capture= -put :interrupted-clock
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(copy-marker org-clock-= marker)))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (org-clock-in)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (setq-local org-cap= ture-clock-was-started
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 (copy-marker org-clock-marker)))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (error "Could not start the = clock in this capture buffer")))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 (when (org-capture-get :immediate-finish)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (org-capture-finalize))))))))

--
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at <https://orgmode.org/>.
Support Org development at <https://liberapay.com/org-mode>,=
or support my work at <https://liberapay.com/yantar92>
--00000000000089c45705f985d211--