From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp0 ([2001:41d0:2:bcc0::]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) by ms0.migadu.com with LMTPS id MALYNtXxi2At7AAAgWs5BA (envelope-from ) for ; Fri, 30 Apr 2021 14:02:29 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp0 with LMTPS id oMmpMtXxi2D9WAAA1q6Kng (envelope-from ) for ; Fri, 30 Apr 2021 12:02:29 +0000 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 C7D931A5B8 for ; Fri, 30 Apr 2021 14:02:28 +0200 (CEST) Received: from localhost ([::1]:51566 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lcRql-0001B8-MM for larch@yhetil.org; Fri, 30 Apr 2021 08:02:27 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:38124) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lcQrx-0002jh-E5 for emacs-orgmode@gnu.org; Fri, 30 Apr 2021 06:59:37 -0400 Received: from mail-eopbgr40100.outbound.protection.outlook.com ([40.107.4.100]:49174 helo=EUR03-DB5-obe.outbound.protection.outlook.com) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lcQrs-00063O-VO; Fri, 30 Apr 2021 06:59:37 -0400 ARC-Seal: i=1; a=rsa-sha256; s=arcselector9901; d=microsoft.com; cv=none; b=G7FIEDtOqslsq7enVHcMzghAOahOFbbVLzoUbOeJf6dlNDbK4GAixDsxNfn+zbkAXaqV3v6K3eng0KprmpaEvPlqypidDK8nKR9taslhBsKgNvZBTzvysnYBNTd+TQr5WKo/3GzMlJbiQmSP04VkhwsQtQTYr/SnW7jUP6WypA26vNYy0STH0RXynPvKa/TvHos8OskXE/puWZ3vCLctTEtcqicMAvrJKVuW7cZbkZMq4XKPOcIk8vBuDnE8EL2LX9KohvaJ9RRV8URPwLYnMvxwo5INhjiUM1nEwsCrj9TA5bcjRzVJz5sfRXI5HgTTwD95fS/6LfVoP1Oal98IBg== ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=microsoft.com; s=arcselector9901; h=From:Date:Subject:Message-ID:Content-Type:MIME-Version:X-MS-Exchange-SenderADCheck; bh=3q7/Tlad645evp2qXIrrRP7is4X4AUNFzmjuImdnUpE=; b=mS8J0JjTxvAvN3dcLhN4VrA86UnyYhHKtEuKqLx/7NzgQtIDCt/uCA80oyu0OOO/KjKR+mLnzKXCr14gG5n19gPe5M7fq6HrXSWMdWp3OcV59tapkIWo+EJPFfe+KxLSFEENVopJwj5/eu0HvzojirWx/ueFZhwWqD7pxt/RiFgtIBEL7Ltde6AFSthini7p/sSrfjvd6QaNL6ZOAHRi4T8+SOO/eIJuS+2tSEjQWvxJgzIVkHGwWqDxg6yYXva+FMxodlhk6GBcFtCpQGCazK+hLS1QhYKuJ6aG5wmGSfej3bY0stgF+Ef16GQaCdgctqEPMBAQ3reok/ozxrAXMA== ARC-Authentication-Results: i=1; mx.microsoft.com 1; spf=pass smtp.mailfrom=ucl.ac.uk; dmarc=pass action=none header.from=ucl.ac.uk; dkim=pass header.d=ucl.ac.uk; arc=none DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=ucl.ac.uk; s=selector1; h=From:Date:Subject:Message-ID:Content-Type:MIME-Version:X-MS-Exchange-SenderADCheck; bh=3q7/Tlad645evp2qXIrrRP7is4X4AUNFzmjuImdnUpE=; b=TCqpzp7qsmTzKNyQIxvKg9adziK7jipLDSkY3CIcwo+f26JOQnCIGPfkejp8rheQLbWsCIX8SioEhC/BW04COKz337RTsYIk/r3lt9eiIYhZIpiHV5qBOdf34mkKBZ6011asEYS4nafYBS2F/hFI42cia89fEXgniM0N3Utgdxg= Received: from PAXPR01MB8415.eurprd01.prod.exchangelabs.com (2603:10a6:102:21e::16) by PAXPR01MB8204.eurprd01.prod.exchangelabs.com (2603:10a6:102:200::6) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.4065.22; Fri, 30 Apr 2021 10:59:29 +0000 Received: from PAXPR01MB8415.eurprd01.prod.exchangelabs.com ([fe80::dbd:886e:5854:8cec]) by PAXPR01MB8415.eurprd01.prod.exchangelabs.com ([fe80::dbd:886e:5854:8cec%5]) with mapi id 15.20.4087.035; Fri, 30 Apr 2021 10:59:29 +0000 From: Eric S Fraga To: Timothy Subject: Re: [PATCH] Have C-c C-c recognise #+plot lines Organization: On the Interweb somewhere References: <87ft0jzbq0.fsf@ucl.ac.uk> <88f6c54a01f345d785492c4d5b3b82d3@VI1PR0102MB3327.eurprd01.prod.exchangelabs.com> <87pmyh5634.fsf@ucl.ac.uk> <87o8e155ub.fsf@gmail.com> <87lf9555q8.fsf@gmail.com> <87im4955jj.fsf@gmail.com> <87a6piwajv.fsf@gmail.com> <87k0ok5gqq.fsf@ucl.ac.uk> <8735v8b2re.fsf@gnu.org> <87wnskupbc.fsf@gmail.com> X-Url: http://www.ucl.ac.uk/~ucecesf/ Mail-Followup-To: Timothy , Bastien , "emacs-orgmode@gnu.org" Date: Fri, 30 Apr 2021 11:59:28 +0100 In-Reply-To: <87wnskupbc.fsf@gmail.com> (Timothy's message of "Fri, 30 Apr 2021 16:52:39 +0800") Message-ID: <875z04597z.fsf@ucl.ac.uk> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) Content-Type: multipart/mixed; boundary="=-=-=" X-Originating-IP: [95.146.38.114] X-ClientProxiedBy: LO2P265CA0013.GBRP265.PROD.OUTLOOK.COM (2603:10a6:600:62::25) To PAXPR01MB8415.eurprd01.prod.exchangelabs.com (2603:10a6:102:21e::16) MIME-Version: 1.0 X-MS-Exchange-MessageSentRepresentingType: 1 Received: from t3610 (95.146.38.114) by LO2P265CA0013.GBRP265.PROD.OUTLOOK.COM (2603:10a6:600:62::25) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.4087.27 via Frontend Transport; Fri, 30 Apr 2021 10:59:29 +0000 X-MS-PublicTrafficType: Email X-MS-Office365-Filtering-Correlation-Id: 7a7465f0-0347-4774-7d2d-08d90bc7070b X-MS-TrafficTypeDiagnostic: PAXPR01MB8204: X-Microsoft-Antispam-PRVS: X-MS-Oob-TLC-OOBClassifiers: OLM:334; X-MS-Exchange-SenderADCheck: 1 X-Microsoft-Antispam: BCL:0; X-Microsoft-Antispam-Message-Info: EdimoQ+ZOa9hnke6ZH+VZgtlB4k7monIpd5TkcvqVyZIDK/2hYlAuMvN6KIdLDZ/5GoJWGuzwXIvE4wn1/AWgU22zHK3y9CQk8NlM6LQB/4PuGtXlMR3sPKsU0UQZV7A0qHfhEh4iJs5SvYXp/gQdsFMAidgXRlWOMwv0NCSkCTXzeB7PGIpo8Twk5SX7zEBv92dkLN1q3hFgIvajXR8qWxa4k9QjrCoR+Jl7TRuMdCwDsT2zL7mIQ6mwLZxW24/JiYIIq2OdPCwqxBrlTK0/e1inuZJaNgdT+UWkVc7YKJuLp0ZIfJUkEXOYOCqIXqtKe27BXrcXdkrsZPLY0kxyaYjJ+ZII6Em54l2E+9Cmmx4wK2UQPKdzvus0dG1CrdqHPY57IVLQC06DIUkKWv1kAXEIzGEWUZNNlVZjGXU1OWvSSF/A2NIhVQqKUWfSIgyzlIJTAxI8634BXbm+pfbiLXKEKmYTpHQj+INGCPktAgzy/lfX+4Kb8ZFPA8bpFPkHplV5yCYy0mj13gPlSi5IsQzpbxkPmuj7VhS6Vr8aCCGl3XQsgBWSKNg7AZWF6ax/oYtZn45pQdSUvmRac5zruoTSL/JK7xcnr3TzPxfC/9vv7gTYJ3wXv5plSayuIQhqVF8KaWZ5oFzjwfkC9q+ZpuHd6oF0Nka95ht4dQF9eo= X-Forefront-Antispam-Report: CIP:255.255.255.255; CTRY:; LANG:en; SCL:1; SRV:; IPV:NLI; SFV:NSPM; H:PAXPR01MB8415.eurprd01.prod.exchangelabs.com; PTR:; CAT:NONE; SFS:(4636009)(39860400002)(396003)(376002)(136003)(346002)(366004)(8676002)(6486002)(66616009)(66476007)(54906003)(186003)(66556008)(26005)(786003)(36916002)(316002)(66946007)(52116002)(956004)(8936002)(4326008)(5660300002)(2616005)(86362001)(6916009)(6496006)(2906002)(83380400001)(235185007)(36756003)(16526019)(38100700002)(38350700002)(478600001); DIR:OUT; SFP:1102; X-MS-Exchange-AntiSpam-MessageData: =?us-ascii?Q?bu2S/KaIVrXqistY1z6FgQZtzleITN+nE9PZ/YCRiwF3Kdzd1+7GqiYZH3H5?= =?us-ascii?Q?iGFWrgdScK1BVaqHZI5wfUpKCvCOLoVOEbee7ymNxlFqPC1mM8AmhiYiX4MM?= =?us-ascii?Q?fgt34LPe3V61ORdT92LiGegL4oLdy4Y78kEPgez0+g+ZFdUN3i0jkozjpWg1?= =?us-ascii?Q?vSqJumL+BWGXKng6cwPDqvWUYoqZOvbTASw9UMYh+8VCr++dpnIYGRYpqtM8?= =?us-ascii?Q?wb9RRVfLafjpiATcMBO2QN55V+mX+dqb8Bq9FDyq8XHqY0lACqvPMRy+U7eY?= =?us-ascii?Q?EECTmkardX1WZ/njEGlJm4tdv76MtZk6ZIfXoeBUCs8yT8nuiAA96K7Mbe6Q?= =?us-ascii?Q?sQIOmwPzNr3xlTUuKiYfGbf6rejQi3SfGRXRouzJmMq1ryghyKBut5LeOQmp?= =?us-ascii?Q?GE8lItBMFJUXQ7gmmGaHNw7QIUuV5B5vP/T6Wy8tRajxXBOR5SdnrcUS0Aux?= =?us-ascii?Q?ru2reaPhZQOJblAceRUnQzNHGvWLy+6nG25Xjjn/nAqg7eyXK7A5nfCZfaCX?= =?us-ascii?Q?dhFNsUhEQMwHkp+TiLoGr/a01+TzwBbHeIlm4jXnryuVgHGKLY2206CDNnLo?= =?us-ascii?Q?JOpP2gaTUI09NHUk/qg2YNTphiPtRix+qoYoGXg2HrVhziEdtSiLq0LyQSPC?= =?us-ascii?Q?pfDcGvWnm2g9pl2yh2n+msAO8ms1H3u4JDrxtKwX9AQNJeBoqIu5ABZEq1OT?= =?us-ascii?Q?NxNzR1M9gD+xC2mExi5ql2fi9tOGdWLe0C394qE+Dhc19xG510ffw98JnS5G?= =?us-ascii?Q?/xcubworH7yp6lra4O/11zOzLxQfiwkbUnKrviFAn2hlVCe35wiMCLEAVMyC?= =?us-ascii?Q?KYPTyAXktmmouOzYiS8PRt6e/t/TCpgz68TwiLPCHNJjM7WLJdo2MmZE3r3l?= =?us-ascii?Q?hatPgA/2PM9cCvuFUUniUi5BzUTehtak0TGgag/DqEgFSwXIcGwEHFM0moNC?= =?us-ascii?Q?3SrcvznNlGzHHl9ttx8HsJWkcC7k0rXnziP35vIxGuFD5NR51cQDlrxaE8GI?= =?us-ascii?Q?zcJfWq3T3H3E+9PhlKIW5Pa7f4X4aF9fAwmYX1mvy4CLbS7T9i0FBWkrUlCC?= =?us-ascii?Q?MZowMbkd2GJGhSsHgtFHP07alqfhxyku2KTlYetstxJKKsFTVA6e6JmyzjOb?= =?us-ascii?Q?7jFtnpG1COxyuJogUX7jLSNykglVaKQ5RAsXmH8EIhU5GEoMHgjtw3GGYEdh?= =?us-ascii?Q?/AQSSyp2J++4Gd3yLOoMC1YXHubrRzUH0LlteYTWsQ68kuS1U2Aa+8RWLDb2?= =?us-ascii?Q?dl9SbkynsQqVE8Q0cXsOlgIc1l9nONnqJ3joUFnsrdEQ7YN1vmz8qXQwDWnu?= =?us-ascii?Q?isW1JITwN2WOs0o7asWNvfKQ?= X-OriginatorOrg: ucl.ac.uk X-MS-Exchange-CrossTenant-Network-Message-Id: 7a7465f0-0347-4774-7d2d-08d90bc7070b X-MS-Exchange-CrossTenant-AuthSource: PAXPR01MB8415.eurprd01.prod.exchangelabs.com X-MS-Exchange-CrossTenant-AuthAs: Internal X-MS-Exchange-CrossTenant-OriginalArrivalTime: 30 Apr 2021 10:59:29.5441 (UTC) X-MS-Exchange-CrossTenant-FromEntityHeader: Hosted X-MS-Exchange-CrossTenant-Id: 1faf88fe-a998-4c5b-93c9-210a11d9a5c2 X-MS-Exchange-CrossTenant-MailboxType: HOSTED X-MS-Exchange-CrossTenant-UserPrincipalName: BLVQGt69sUorRVmDWb9rtlNfSlexXQ+kvaPAq+3asePBBRXHqgMV86Y2R07hp3WGQtOFzmkoeZzR06+SAyXVSQ== X-MS-Exchange-Transport-CrossTenantHeadersStamped: PAXPR01MB8204 Received-SPF: pass client-ip=40.107.4.100; envelope-from=e.fraga@ucl.ac.uk; helo=EUR03-DB5-obe.outbound.protection.outlook.com X-Spam_score_int: -26 X-Spam_score: -2.7 X-Spam_bar: -- X-Spam_report: (-2.7 / 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, GAPPY_SUBJECT=0.1, MSGID_FROM_MTA_HEADER=0.001, RCVD_IN_DNSWL_LOW=-0.7, RCVD_IN_MSPIKE_H2=-0.001, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Cc: Bastien , "emacs-orgmode@gnu.org" Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: "Emacs-orgmode" X-Migadu-Flow: FLOW_IN ARC-Message-Signature: i=2; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1619784149; 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=3q7/Tlad645evp2qXIrrRP7is4X4AUNFzmjuImdnUpE=; b=o8M5Scaw1A2IyrP5q+WcoNX1lHIS6wGu/7xeuWozpweQoRRBmIf+bOCvXvdm3YIb5DvJlU ISXQI1QaAkciNFE22gVWD7EcJySVijW9/r5XzHWrux84jIOhdNaYigfHNdbVwqMomqtebF cRNySYXZo0Pb5lIwV/fpuLpY99BA8qPG+sxt2k5ZV2WtRwlyjRKmJsDG7VtKBEuE+rl1N3 lG4/3iri9WqQHBct9x6AWTwgeO+ipulMjerxe6cfl4YpUoFC18TriVqQ0ewVWXyrEe/q9i Nj8WiiffHzCGyLIp7QZAk1Ktsa0uLkEzOV/wNAUCLtT4gFftE03yQZl9xVGAPA== ARC-Seal: i=2; s=key1; d=yhetil.org; t=1619784149; a=rsa-sha256; cv=pass; b=n+6U0y+bh7TOJ1nouBjjRpCULCAyth2pp1bU3So98LTaaNVOWeUb78OmqirQmsVKF+6wqj WWpjBGTQDjd4LPeMOzu8iJB0/RQlb6crk2x6xoTEjZS4indAY384VhZ9wqej77peZEBHkU O2TyChdmez9tH/nTOp+rZdow2qwWhWraT05/JtbajzHXKn633yu/JwsjzG6AHOWE0VB9t3 oyxqeTwvFsvQpWC7a4rsanyPT77MT3IWkoefg9kkntUuE3YBP/BsND5QO2R4Okt2Ku7UaV R8zrH+cIxjA5KfXlMDw0az8nLbRSQpBp0Wn071bTHl7lSosr4uNnMhkU4aHHhg== ARC-Authentication-Results: i=2; aspmx1.migadu.com; dkim=pass header.d=ucl.ac.uk header.s=selector1 header.b=TCqpzp7q; arc=pass ("microsoft.com:s=arcselector9901:i=1"); dmarc=pass (policy=none) header.from=ucl.ac.uk; spf=pass (aspmx1.migadu.com: domain of emacs-orgmode-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=emacs-orgmode-bounces@gnu.org X-Migadu-Spam-Score: -3.80 Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=ucl.ac.uk header.s=selector1 header.b=TCqpzp7q; arc=pass ("microsoft.com:s=arcselector9901:i=1"); dmarc=pass (policy=none) header.from=ucl.ac.uk; spf=pass (aspmx1.migadu.com: domain of emacs-orgmode-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=emacs-orgmode-bounces@gnu.org X-Migadu-Queue-Id: C7D931A5B8 X-Spam-Score: -3.80 X-Migadu-Scanner: scn0.migadu.com X-TUID: P4wPwIXmAgoR --=-=-= Content-Type: text/plain I have updated org. Problem persists. Attached is a full backtrace after hitting C-u C-c C-c on a table. The document itself has 2 headings and a small table. I unfortunately cannot spend more time on this at the moment as I have a presentation to make this afternoon and it's not quite ready... -- : Eric S Fraga via Emacs 28.0.50, Org release_9.4.5-394-g7fc090 --=-=-= Content-Type: text/plain Content-Disposition: attachment; filename=backtrace.txt Content-Transfer-Encoding: quoted-printable Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil) <(240 nil) (and (< (point) (org-element-property :post-affiliated context)) (org-mat= ch-line "[ \11]*#\\+plot:")) (cond ((and (< (point) (org-element-property :post-affiliated context)) (= org-match-line "[ \11]*#\\+plot:")) (org-plot/gnuplot)) ((eq (org-element-p= roperty :type context) 'table\.el) (message "%s" (substitute-command-keys "= \\Use `\\[org-edit-special]' to edit t..."))) ((or (eq type '= table) (and (eq type 'table-row) (=3D (point) (org-element-property :end co= ntext)))) (save-excursion (if (org-at-TBLFM-p) (progn (require 'org-table) = (org-table-calc-current-TBLFM)) (goto-char (org-element-property :contents-= begin context)) (org-call-with-arg 'org-table-recalculate (or arg t)) (orgt= bl-send-table 'maybe)))) (t (org-table-maybe-eval-formula) (cond (arg (call= -interactively #'org-table-recalculate)) ((org-table-maybe-recalculate-line= )) (t (org-table-align))))) (let nil (cond ((and (< (point) (org-element-property :post-affiliated co= ntext)) (org-match-line "[ \11]*#\\+plot:")) (org-plot/gnuplot)) ((eq (org-= element-property :type context) 'table\.el) (message "%s" (substitute-comma= nd-keys "\\Use `\\[org-edit-special]' to edit t..."))) ((or (= eq type 'table) (and (eq type 'table-row) (=3D (point) (org-element-propert= y :end context)))) (save-excursion (if (org-at-TBLFM-p) (progn (require 'or= g-table) (org-table-calc-current-TBLFM)) (goto-char (org-element-property := contents-begin context)) (org-call-with-arg 'org-table-recalculate (or arg = t)) (orgtbl-send-table 'maybe)))) (t (org-table-maybe-eval-formula) (cond (= arg (call-interactively #'org-table-recalculate)) ((org-table-maybe-recalcu= late-line)) (t (org-table-align)))))) (cond ((memq type '(src-block inline-src-block)) (let nil (if org-babel-n= o-eval-on-ctrl-c-ctrl-c nil (org-babel-eval-wipe-error-buffer) (org-babel-e= xecute-src-block current-prefix-arg (org-babel-get-src-block-info nil conte= xt))))) ((org-match-line "[ \11]*$") (let nil (or (run-hook-with-args-until= -success 'org-ctrl-c-ctrl-c-final-hook) (user-error (substitute-command-key= s "`\\[org-ctrl-c-ctrl-c]' can do nothing useful here"))))) ((memq type '(i= nline-babel-call babel-call)) (let nil (let ((info (org-babel-lob-get-info = context))) (if info (progn (org-babel-execute-src-block nil info)))))) ((eq= type 'clock) (let nil (org-clock-update-time-maybe))) ((eq type 'dynamic-b= lock) (let nil (save-excursion (goto-char (org-element-property :post-affil= iated context)) (org-update-dblock)))) ((eq type 'footnote-definition) (let= nil (goto-char (org-element-property :post-affiliated context)) (call-inte= ractively 'org-footnote-action))) ((eq type 'footnote-reference) (let nil (= call-interactively #'org-footnote-action))) ((memq type '(inlinetask headli= ne)) (let nil (save-excursion (goto-char (org-element-property :begin conte= xt)) (call-interactively #'org-set-tags-command)))) ((eq type 'item) (let n= il (if (or radio-list-p (and (boundp org-list-checkbox-radio-mode) org-list= -checkbox-radio-mode)) (org-toggle-radio-button arg) (let* ((box (org-eleme= nt-property :checkbox context)) (struct (org-element-property :structure co= ntext)) (old-struct (copy-tree struct)) (parents (org-list-parents-alist st= ruct)) (prevs (org-list-prevs-alist struct)) (orderedp (org-not-nil ...))) = (org-list-set-checkbox (org-element-property :begin context) struct (cond (= ... "[-]") (... "[ ]") (... nil) (... "[ ]") (t "[X]"))) (org-list-struct-f= ix-ind struct parents 2) (org-list-struct-fix-item-end struct) (org-list-st= ruct-fix-bul struct prevs) (org-list-struct-fix-ind struct parents) (let ((= block-item ...)) (if (and box ...) (if ... ... ...) (org-list-struct-apply-= struct struct old-struct) (org-update-checkbox-count-maybe)) (if block-item= (progn ...))))))) ((eq type 'plain-list) (let nil (if (or radio-list-p (an= d (boundp org-list-checkbox-radio-mode) org-list-checkbox-radio-mode)) (org= -toggle-radio-button arg) (let* ((begin (org-element-property :contents-beg= in context)) (struct (org-element-property :structure context)) (old-struct= (copy-tree struct)) (first-box (save-excursion ... ... ...)) (new-box (con= d ... ... ... ...))) (cond (arg (let ... ...)) ((and first-box ...) (org-li= st-set-checkbox begin struct new-box))) (if (equal (org-list-write-struct s= truct ... old-struct) old-struct) (progn (message "Cannot update this check= box"))) (org-update-checkbox-count-maybe))))) ((eq type 'keyword) (let nil = (let ((org-inhibit-startup-visibility-stuff t) (org-startup-align-all-table= s nil)) (if (boundp 'org-table-coordinate-overlays) (progn (mapc #'delete-o= verlay org-table-coordinate-overlays) (setq org-table-coordinate-overlays n= il))) (let* ((--invisible-types '...) (--markers\? 'use-markers) (--data (m= apcar ... ...))) (unwind-protect (progn (org-mode-restart)) (save-excursion= (save-restriction ... ... ...))))) (message "Local setup has been refreshe= d"))) ((memq type '(node-property property-drawer)) (let nil (call-interact= ively #'org-property-action))) ((eq type 'radio-target) (let nil (call-inte= ractively #'org-update-radio-target-regexp))) ((eq type 'statistics-cookie)= (let nil (call-interactively #'org-update-statistics-cookies))) ((memq typ= e '(table-row table-cell table)) (let nil (cond ((and (< (point) (org-eleme= nt-property :post-affiliated context)) (org-match-line "[ \11]*#\\+plot:"))= (org-plot/gnuplot)) ((eq (org-element-property :type context) 'table\.el) = (message "%s" (substitute-command-keys "\\Use `\\[org-edit-sp= ecial]' to edit t..."))) ((or (eq type 'table) (and (eq type ...) (=3D ... = ...))) (save-excursion (if (org-at-TBLFM-p) (progn ... ...) (goto-char ...)= (org-call-with-arg ... ...) (orgtbl-send-table ...)))) (t (org-table-maybe= -eval-formula) (cond (arg (call-interactively ...)) ((org-table-maybe-recal= culate-line)) (t (org-table-align))))))) ((eq type 'timestamp) (funcall pca= se-1)) ((eq type 'planning) (cond ((org-at-timestamp-p 'lax) (funcall pcase= -1)) ((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) 'nil= ) (t (funcall pcase-0)))) ((null type) (cond ((org-at-heading-p) (let nil (= call-interactively #'org-set-tags-command))) ((run-hook-with-args-until-suc= cess 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t (funcall pcase-0)))) ((run-hoo= k-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t (funcall = pcase-0))) (let* ((pcase-1 #'(lambda nil (org-timestamp-change 0 'day))) (pcase-0 #'= (lambda nil (user-error (substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' c= an do nothing useful here"))))) (cond ((memq type '(src-block inline-src-bl= ock)) (let nil (if org-babel-no-eval-on-ctrl-c-ctrl-c nil (org-babel-eval-w= ipe-error-buffer) (org-babel-execute-src-block current-prefix-arg (org-babe= l-get-src-block-info nil context))))) ((org-match-line "[ \11]*$") (let nil= (or (run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) (user= -error (substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' can do nothing use= ful here"))))) ((memq type '(inline-babel-call babel-call)) (let nil (let (= (info (org-babel-lob-get-info context))) (if info (progn (org-babel-execute= -src-block nil info)))))) ((eq type 'clock) (let nil (org-clock-update-time= -maybe))) ((eq type 'dynamic-block) (let nil (save-excursion (goto-char (or= g-element-property :post-affiliated context)) (org-update-dblock)))) ((eq t= ype 'footnote-definition) (let nil (goto-char (org-element-property :post-a= ffiliated context)) (call-interactively 'org-footnote-action))) ((eq type '= footnote-reference) (let nil (call-interactively #'org-footnote-action))) (= (memq type '(inlinetask headline)) (let nil (save-excursion (goto-char (org= -element-property :begin context)) (call-interactively #'org-set-tags-comma= nd)))) ((eq type 'item) (let nil (if (or radio-list-p (and (boundp org-list= -checkbox-radio-mode) org-list-checkbox-radio-mode)) (org-toggle-radio-butt= on arg) (let* ((box ...) (struct ...) (old-struct ...) (parents ...) (prevs= ...) (orderedp ...)) (org-list-set-checkbox (org-element-property :begin c= ontext) struct (cond ... ... ... ... ...)) (org-list-struct-fix-ind struct = parents 2) (org-list-struct-fix-item-end struct) (org-list-struct-fix-bul s= truct prevs) (org-list-struct-fix-ind struct parents) (let (...) (if ... ..= . ... ...) (if block-item ...)))))) ((eq type 'plain-list) (let nil (if (or= radio-list-p (and (boundp org-list-checkbox-radio-mode) org-list-checkbox-= radio-mode)) (org-toggle-radio-button arg) (let* ((begin ...) (struct ...) = (old-struct ...) (first-box ...) (new-box ...)) (cond (arg ...) (... ...)) = (if (equal ... old-struct) (progn ...)) (org-update-checkbox-count-maybe)))= )) ((eq type 'keyword) (let nil (let ((org-inhibit-startup-visibility-stuff= t) (org-startup-align-all-tables nil)) (if (boundp 'org-table-coordinate-o= verlays) (progn (mapc ... org-table-coordinate-overlays) (setq org-table-co= ordinate-overlays nil))) (let* ((--invisible-types ...) (--markers\? ...) (= --data ...)) (unwind-protect (progn ...) (save-excursion ...)))) (message "= Local setup has been refreshed"))) ((memq type '(node-property property-dra= wer)) (let nil (call-interactively #'org-property-action))) ((eq type 'radi= o-target) (let nil (call-interactively #'org-update-radio-target-regexp))) = ((eq type 'statistics-cookie) (let nil (call-interactively #'org-update-sta= tistics-cookies))) ((memq type '(table-row table-cell table)) (let nil (con= d ((and (< ... ...) (org-match-line "[ \11]*#\\+plot:")) (org-plot/gnuplot)= ) ((eq (org-element-property :type context) 'table\.el) (message "%s" (subs= titute-command-keys "\\Use `\\[org-edit-special]' to edit t..= ."))) ((or (eq type ...) (and ... ...)) (save-excursion (if ... ... ... ...= ...))) (t (org-table-maybe-eval-formula) (cond (arg ...) (...) (t ...)))))= ) ((eq type 'timestamp) (funcall pcase-1)) ((eq type 'planning) (cond ((org= -at-timestamp-p 'lax) (funcall pcase-1)) ((run-hook-with-args-until-success= 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t (funcall pcase-0)))) ((null type) = (cond ((org-at-heading-p) (let nil (call-interactively #'org-set-tags-comma= nd))) ((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) 'ni= l) (t (funcall pcase-0)))) ((run-hook-with-args-until-success 'org-ctrl-c-c= trl-c-final-hook) 'nil) (t (funcall pcase-0)))) (let* ((context (org-element-lineage (org-element-context) '(babel-call c= lock dynamic-block footnote-definition footnote-reference inline-babel-call= inline-src-block inlinetask item keyword node-property paragraph plain-lis= t planning property-drawer radio-target src-block statistics-cookie table t= able-cell table-row timestamp) t)) (radio-list-p (org-at-radio-list-p)) (ty= pe (org-element-type context))) (if (eq type 'paragraph) (progn (let ((pare= nt (org-element-property :parent context))) (if (and (eq (org-element-type = parent) 'item) (=3D (line-beginning-position) (org-element-property :begin = parent))) (progn (setq context parent) (setq type 'item)))))) (let* ((pcase= -1 #'(lambda nil (org-timestamp-change 0 'day))) (pcase-0 #'(lambda nil (us= er-error (substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' can do nothing u= seful here"))))) (cond ((memq type '(src-block inline-src-block)) (let nil = (if org-babel-no-eval-on-ctrl-c-ctrl-c nil (org-babel-eval-wipe-error-buffe= r) (org-babel-execute-src-block current-prefix-arg (org-babel-get-src-block= -info nil context))))) ((org-match-line "[ \11]*$") (let nil (or (run-hook-= with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) (user-error (substit= ute-command-keys "`\\[org-ctrl-c-ctrl-c]' can do nothing useful here"))))) = ((memq type '(inline-babel-call babel-call)) (let nil (let ((info ...)) (if= info (progn ...))))) ((eq type 'clock) (let nil (org-clock-update-time-may= be))) ((eq type 'dynamic-block) (let nil (save-excursion (goto-char (org-el= ement-property :post-affiliated context)) (org-update-dblock)))) ((eq type = 'footnote-definition) (let nil (goto-char (org-element-property :post-affil= iated context)) (call-interactively 'org-footnote-action))) ((eq type 'foot= note-reference) (let nil (call-interactively #'org-footnote-action))) ((mem= q type '(inlinetask headline)) (let nil (save-excursion (goto-char (org-ele= ment-property :begin context)) (call-interactively #'org-set-tags-command))= )) ((eq type 'item) (let nil (if (or radio-list-p (and ... org-list-checkbo= x-radio-mode)) (org-toggle-radio-button arg) (let* (... ... ... ... ... ...= ) (org-list-set-checkbox ... struct ...) (org-list-struct-fix-ind struct pa= rents 2) (org-list-struct-fix-item-end struct) (org-list-struct-fix-bul str= uct prevs) (org-list-struct-fix-ind struct parents) (let ... ... ...))))) (= (eq type 'plain-list) (let nil (if (or radio-list-p (and ... org-list-check= box-radio-mode)) (org-toggle-radio-button arg) (let* (... ... ... ... ...) = (cond ... ...) (if ... ...) (org-update-checkbox-count-maybe))))) ((eq type= 'keyword) (let nil (let ((org-inhibit-startup-visibility-stuff t) (org-sta= rtup-align-all-tables nil)) (if (boundp ...) (progn ... ...)) (let* (... ..= . ...) (unwind-protect ... ...))) (message "Local setup has been refreshed"= ))) ((memq type '(node-property property-drawer)) (let nil (call-interactiv= ely #'org-property-action))) ((eq type 'radio-target) (let nil (call-intera= ctively #'org-update-radio-target-regexp))) ((eq type 'statistics-cookie) (= let nil (call-interactively #'org-update-statistics-cookies))) ((memq type = '(table-row table-cell table)) (let nil (cond ((and ... ...) (org-plot/gnup= lot)) ((eq ... ...) (message "%s" ...)) ((or ... ...) (save-excursion ...))= (t (org-table-maybe-eval-formula) (cond ... ... ...))))) ((eq type 'timest= amp) (funcall pcase-1)) ((eq type 'planning) (cond ((org-at-timestamp-p 'la= x) (funcall pcase-1)) ((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c= -final-hook) 'nil) (t (funcall pcase-0)))) ((null type) (cond ((org-at-head= ing-p) (let nil (call-interactively ...))) ((run-hook-with-args-until-succe= ss 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t (funcall pcase-0)))) ((run-hook-= with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t (funcall pc= ase-0))))) (cond ((and (boundp 'org-columns-overlays) org-columns-overlays) (org-col= umns-quit)) ((or (and (boundp 'org-clock-overlays) org-clock-overlays) org-= occur-highlights) (if (boundp 'org-clock-overlays) (progn (org-clock-remove= -overlays))) (org-remove-occur-highlights) (message "Temporary highlights/o= verlays removed from current...")) ((and (local-variable-p 'org-finish-func= tion) (fboundp org-finish-function)) (funcall org-finish-function)) ((org-b= abel-hash-at-point)) ((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-= hook)) (t (let* ((context (org-element-lineage (org-element-context) '(babe= l-call clock dynamic-block footnote-definition footnote-reference inline-ba= bel-call inline-src-block inlinetask item keyword node-property paragraph p= lain-list planning property-drawer radio-target src-block statistics-cookie= table table-cell table-row timestamp) t)) (radio-list-p (org-at-radio-list= -p)) (type (org-element-type context))) (if (eq type 'paragraph) (progn (le= t ((parent ...)) (if (and ... ...) (progn ... ...))))) (let* ((pcase-1 #'(l= ambda nil ...)) (pcase-0 #'(lambda nil ...))) (cond ((memq type '...) (let = nil (if org-babel-no-eval-on-ctrl-c-ctrl-c nil ... ...))) ((org-match-line = "[ \11]*$") (let nil (or ... ...))) ((memq type '...) (let nil (let ... ...= ))) ((eq type 'clock) (let nil (org-clock-update-time-maybe))) ((eq type 'd= ynamic-block) (let nil (save-excursion ... ...))) ((eq type 'footnote-defin= ition) (let nil (goto-char ...) (call-interactively ...))) ((eq type 'footn= ote-reference) (let nil (call-interactively ...))) ((memq type '...) (let n= il (save-excursion ... ...))) ((eq type 'item) (let nil (if ... ... ...))) = ((eq type 'plain-list) (let nil (if ... ... ...))) ((eq type 'keyword) (let= nil (let ... ... ...) (message "Local setup has been refreshed"))) ((memq = type '...) (let nil (call-interactively ...))) ((eq type 'radio-target) (le= t nil (call-interactively ...))) ((eq type 'statistics-cookie) (let nil (ca= ll-interactively ...))) ((memq type '...) (let nil (cond ... ... ... ...)))= ((eq type 'timestamp) (funcall pcase-1)) ((eq type 'planning) (cond (... .= ..) (... ...) (t ...))) ((null type) (cond (... ...) (... ...) (t ...))) ((= run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t (f= uncall pcase-0))))))) org-ctrl-c-ctrl-c((4)) funcall-interactively(org-ctrl-c-ctrl-c (4)) command-execute(org-ctrl-c-ctrl-c) --=-=-=--