From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp1 ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms0.migadu.com with LMTPS id gBLRD6XdmGEKWAAAgWs5BA (envelope-from ) for ; Sat, 20 Nov 2021 12:36:05 +0100 Received: from aspmx1.migadu.com ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp1 with LMTPS id YGVmC6XdmGFcXAAAbx9fmQ (envelope-from ) for ; Sat, 20 Nov 2021 11:36:05 +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 7430D19171 for ; Sat, 20 Nov 2021 12:36:04 +0100 (CET) Received: from localhost ([::1]:39706 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1moOf5-0003fV-7e for larch@yhetil.org; Sat, 20 Nov 2021 06:36:03 -0500 Received: from eggs.gnu.org ([209.51.188.92]:50856) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1moOeE-0003ew-Cd for emacs-orgmode@gnu.org; Sat, 20 Nov 2021 06:35:11 -0500 Received: from mail-oln040092075055.outbound.protection.outlook.com ([40.92.75.55]:50343 helo=EUR04-VI1-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 1moOe6-0001i7-Qs for emacs-orgmode@gnu.org; Sat, 20 Nov 2021 06:35:08 -0500 ARC-Seal: i=1; a=rsa-sha256; s=arcselector9901; d=microsoft.com; cv=none; b=ZMo3W2wVp+ZKyIRi4Qaq2L4AKJAntrP5hAq5LlUbz0pGAyj+TvzInBL1hWZcDAo8wzY3QWZtpajneoA/3fmNtAnn7e5t+8I+I5njNg5DP3QutMEI3R6t1npXZqaAScLySil0e1ADFqlSZYoY7JJfyTNUYLx+ft26bXMNKEmlLyYigxQeUlu8MMBW4E4aufBC+oipsuwSU099TZvUJG2XOLaNFA2hkA5fBwHqWTxNHWH/C6LYBxj6KvUGbXMidvPnNSj0enGpLPG9mOy+uaUB57VJm3P7nUEKEQINv+GouG1eQdEqfleteuC96PrukdpFt4+APdXk6skXe36/gVmLcQ== 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-AntiSpam-MessageData-ChunkCount:X-MS-Exchange-AntiSpam-MessageData-0:X-MS-Exchange-AntiSpam-MessageData-1; bh=OnpJbx0PQ25peMi2Ik7cLOk9yQCsCNlTuDX0G4yDif8=; b=kfoU4x+Kh1svWvoOEjAs2lK3ebCsTFEI9D+P+/Nripc+OK2rgO7hSSIa9sLHhxwM2QakbL3CgFNMcGCm/wCsgZcrIeC9cYeYyRCx1dFxsrAx54YmAnW9+V4cTyf8f9dMJps7eYAvfr6Hue6t9OMPpm58aCIgQWIofjLweJclkvDf4db7MOCSLNpi5fTSCp8xxty/CTJmMcU0JCvEqTCvgorUus5cmfTCrd4rMxNvSHAueGm01CyfJQRNJPQ2w+/dCxM1AXOkjRs/BpgMFZN2XcHOLsrCCLYpm0posEC3essZ3+w+8vOIyIj5nfegMLHKX9v87pSxTMuGzgyyRWTDvg== ARC-Authentication-Results: i=1; mx.microsoft.com 1; spf=none; dmarc=none; dkim=none; arc=none DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=outlook.com; s=selector1; h=From:Date:Subject:Message-ID:Content-Type:MIME-Version:X-MS-Exchange-SenderADCheck; bh=OnpJbx0PQ25peMi2Ik7cLOk9yQCsCNlTuDX0G4yDif8=; b=SJqLJNi/2pctnIUoGDiQNIq2EqCNwB5BIGm56t0GVnxFySrhNsilcMmUBD/i2jspY/YKIwUp+1l4F9x0BBscBEHeaF5yiID7EffDciLPoUrFP2OUBLf+GB/EdQG6lHIHJEi7POopdDiIjW1gO8BcInAFUzedUbmxY5UzAwwJJDN0+3exNsljHApulmj63bvqxLQEqrzYPSmYZKQouEU8I6Z/drsYlIbnjXJzL8hRwVTD2nE+zrC1dE1IQVC4MxI6JRg/Q22Ofml7XpR9LaFg5nASUg1GU+9bxSOwRbTflLtuvDQsj0nL4MiMlAsMXnG+yaC/xuji1uuZC1yJA7epHA== Received: from PAXPR08MB6640.eurprd08.prod.outlook.com (2603:10a6:102:dd::5) by PR3PR08MB5723.eurprd08.prod.outlook.com (2603:10a6:102:89::21) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.4713.20; Sat, 20 Nov 2021 11:34:59 +0000 Received: from PAXPR08MB6640.eurprd08.prod.outlook.com ([fe80::90c1:4e36:aaac:49d0]) by PAXPR08MB6640.eurprd08.prod.outlook.com ([fe80::90c1:4e36:aaac:49d0%6]) with mapi id 15.20.4713.022; Sat, 20 Nov 2021 11:34:59 +0000 User-agent: mu4e 1.7.0; emacs 28.0.60 From: "Christopher M. Miles" To: Org Mode (org-mode) Subject: [BUG] error on org-element--cache-process-request when TAB indent region select properties drawer Date: Sat, 20 Nov 2021 19:30:43 +0800 Message-ID: Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha256; protocol="application/pgp-signature" X-TMN: [V+iwr7oQ5v5HE47CBVEYA3zGDXWuMvh5] X-ClientProxiedBy: HK2PR02CA0184.apcprd02.prod.outlook.com (2603:1096:201:21::20) To PAXPR08MB6640.eurprd08.prod.outlook.com (2603:10a6:102:dd::5) X-Microsoft-Original-Message-ID: MIME-Version: 1.0 X-MS-Exchange-MessageSentRepresentingType: 2 Received: from Mac-mini.local (91.240.163.131) by HK2PR02CA0184.apcprd02.prod.outlook.com (2603:1096:201:21::20) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.4713.22 via Frontend Transport; Sat, 20 Nov 2021 11:34:57 +0000 X-MS-PublicTrafficType: Email X-MS-Office365-Filtering-Correlation-Id: 7da4d9ac-5417-4a6d-d979-08d9ac19c868 X-MS-TrafficTypeDiagnostic: PR3PR08MB5723: X-Microsoft-Antispam: BCL:0; X-Microsoft-Antispam-Message-Info: thicaaJaG/PNNq5VrfDuPcRdg8GpBFYWgU2Yn/yDNKOVqQSZ7VF/ggaCyqbOhiHKlGn2fR/4lhjSiUMBtlGh8mWOWRjVwN2YhO/h8p/EhuScFxV6XoEj8lGvmKaGVX7NBNQNv55Ay4sAqAEs26q+1gengxE/rEQSZWmnSGyHkNnE1pvVSmyCCErZLFng5ylCvE0KQx6nPq4CcqeKlVS0pcBXfnOo0Q21dRRjzAb4XPPf7+Sf3EdZEF2fnQmzJPPTv0oBrJLPzf13fBaWbT9e9xrUcyF9KZ4Em+pY6ed27rifWmOVVFRP6bau6tNVMh+PNtqO1pBPIqnTqNVyuftKSkLSzAVoUu1sPRVsr+of0Nhs8uK1tvZkNGGrfkkWQAWH0xs6ZxQrxiaEmGCA5/RGToXNaAYgmeTLbcQbmpQE1RSR4grokZbWZZ9pMcCNyo6OT/tKbFr8bkjTNJLqD0NupTskyyRvbp9v5jF00Is8PPTYAfIq/KRZnJAt3DhSCzUpbZ8bn8HBqe+I+UUy1qEsOKcE6+toDrRkVtTrprPBAz+U9nR56OoKWZ2e+OPqvSGMMw/8XD/ESmGXB7svxl2vmntuL5UpCMYcaYuDgMMwO1zrEROFloUTgW38aNAFiZX8 X-MS-Exchange-AntiSpam-MessageData-ChunkCount: 1 X-MS-Exchange-AntiSpam-MessageData-0: MAzFqirSbKkuCXtfBQWCxUfvmo5EYnkAJG2jjSjqzHnQvuPtvNDoWyYPrAuemJp1dJAvlz1nT2znyQ/4piexKaDXQSYjfCl4jZ64XVhwBPpZKlLDJLUXfNQOdfKPQdVxTmCXduOaYYtn54O24YD7akvDLjeZt81U8FQVT02gKLCMZsr02Pg4n8PrE6fkg9cQkmWUMufGYKci9rdh7xf5Y3zgfnx6r7R+s1y2k3nY1MsZ17s9uHdYQgoFEo65Hz816hzw4I+643YEQAFY6qgNVXobZD9ur8LA5WIC7Z+2+kuL+hc42jbCLZnu6jmWXOUojvPX1jLgxRUQFfBCQdstDm5F7zaPiwlTvc33g4i0ehcPQJ4ksZFwOnqfoTs/hfmXabUnNPU/qDjoYJXAUfOhOXJIiGKw5AXxEFYsgU5Z4pCTI6kKqVr/yK/22qebjCRVJqBl1Rxyih5E6fLpcIYzC6SgRHNR5NntbyoMg95Bze5obs8RcikBHiGd+Aol+bb5s4vn+XZ4Lxx7xi67TtraupvWkLguZNq/++iBCJlTtNW8PttCLsKs3cGCnp5xemJh2GcTmfAY//HzdSXkZaMV84DsPeStk3nmFc8Ki6+vbU4LlrRe+ca2+o5UyJvnwGcarzSejiBexv6zV6aZtZvDyVdq3gdfR79PecCrqrvjIuny9rFVac1IXtqaH51Nod6QkgMgO3+anPhKcFsvqyXb8w== X-OriginatorOrg: outlook.com X-MS-Exchange-CrossTenant-Network-Message-Id: 7da4d9ac-5417-4a6d-d979-08d9ac19c868 X-MS-Exchange-CrossTenant-AuthSource: PAXPR08MB6640.eurprd08.prod.outlook.com X-MS-Exchange-CrossTenant-AuthAs: Internal X-MS-Exchange-CrossTenant-OriginalArrivalTime: 20 Nov 2021 11:34:59.1576 (UTC) X-MS-Exchange-CrossTenant-FromEntityHeader: Hosted X-MS-Exchange-CrossTenant-Id: 84df9e7f-e9f6-40af-b435-aaaaaaaaaaaa X-MS-Exchange-Transport-CrossTenantHeadersStamped: PR3PR08MB5723 Received-SPF: pass client-ip=40.92.75.55; envelope-from=stardiviner@outlook.com; helo=EUR04-VI1-obe.outbound.protection.outlook.com X-Spam_score_int: 4 X-Spam_score: 0.4 X-Spam_bar: / X-Spam_report: (0.4 / 5.0 requ) BAYES_00=-1.9, DKIM_ADSP_CUSTOM_MED=0.001, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_EF=-0.1, FORGED_GMAIL_RCVD=1, FREEMAIL_FORGED_FROMDOMAIN=0.248, FREEMAIL_FROM=0.001, HEADER_FROM_DIFFERENT_DOMAINS=0.249, MSGID_FROM_MTA_HEADER=0.001, NML_ADSP_CUSTOM_MED=0.9, RCVD_IN_DNSWL_NONE=-0.0001, RCVD_IN_MSPIKE_H2=-0.001, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=no 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: , Reply-To: numbchild@gmail.com Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: "Emacs-orgmode" X-Migadu-Flow: FLOW_IN X-Migadu-Country: US ARC-Message-Signature: i=2; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1637408164; h=from:from:sender:sender:reply-to:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:mime-version:mime-version: content-type:content-type:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=OnpJbx0PQ25peMi2Ik7cLOk9yQCsCNlTuDX0G4yDif8=; b=ZBc0eaQvh6qQ0kxOxhjUrj9u+rpKUuasyvCLKSCGrgoC8MjwW83BpwFhBgWwvpKoVkYQMy WneUgt18b1Caf+FeEa1YZV5wVKF6D7Vqq1oM7pna44GKukvVnNZ+ZEPA5SeG67E9+o4Lw7 R21M4j7wssUIruMeYj/CWBcgVH07G1oN0U3g7CgA85rCCOb80Kci2nRWMTBVnTVpFAqY7D vcYccxcOIuCAHccYUnKnU9muAvJ7LSphiXdqLUGgNSZ3LH7gQaOMaO6cKK8880Oy0MavBC ERjTUYuh3mpxjxdZ/mCcJy3H5/Zu8LLXiZrEcLt5yyzCdCFGXCanch1NK+RgIg== ARC-Seal: i=2; s=key1; d=yhetil.org; t=1637408164; a=rsa-sha256; cv=pass; b=mpAO4nFxeGmzD98TKSTILR2lDkDUwpl+CGxz2z01BDXj7T5D8Pmkh8dO9R86ZjCLC5bCkt iAooQXTV/NmNU7jsdzRf8ubgwB+R+PGmPIL4yltvptyHKUEP2xXl9dpQEO/ULfhrKfCu65 IMgsBygsOl4BlmISklBuK7KZd0VT4Iit7+wEaRpwR+oIhFwCKQJEr6xlLPpRw5R527SR5+ jaMd5VyI+fgeDZsyKPpkSR1XffM6qJ02E0walU7o7l8rhvOXV1VK6PRtAUjLmewpuN4N/Q YUOX9v5ftuAPOPOCRey33ge61h7aTdt/UZBma/JcE1vZoD8SmtlIYrgWp5OuqQ== ARC-Authentication-Results: i=2; aspmx1.migadu.com; dkim=pass header.d=outlook.com header.s=selector1 header.b="SJqLJNi/"; arc=pass ("microsoft.com:s=arcselector9901:i=1"); dmarc=fail reason="SPF not aligned (relaxed), DKIM not aligned (relaxed)" header.from=gmail.com (policy=none); 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" X-Migadu-Spam-Score: -6.07 Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=outlook.com header.s=selector1 header.b="SJqLJNi/"; arc=pass ("microsoft.com:s=arcselector9901:i=1"); dmarc=fail reason="SPF not aligned (relaxed), DKIM not aligned (relaxed)" header.from=gmail.com (policy=none); 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" X-Migadu-Queue-Id: 7430D19171 X-Spam-Score: -6.07 X-Migadu-Scanner: scn0.migadu.com X-TUID: e3iWJbKiWN26 --=-=-= Content-Type: text/plain Content-Transfer-Encoding: quoted-printable The bellowing error often raised when I region select multiple headlines wh= ich contains properties drawer #+begin_src org |*** headline 1 :PROPERTIES: :kkk: kkkk2 :END: ,*** headline 2 :PROPERTIES: :kkk: kkkk3 :END: | #+end_src (Here the ~|~ and ~|~ represent the region select two headline = properties drawer.) then press =3D[Tab]=3D key to indent properties drawers will raise this err= or: #+begin_example Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil) >(26723 nil) (and (org-element-property :cached (aref next-request 4)) (org-element-pr= operty :begin (aref next-request 4)) (> (org-element-property :begin (aref = next-request 4)) (org-element-property :begin parent))) (if (and (org-element-property :cached (aref next-request 4)) (org-elemen= t-property :begin (aref next-request 4)) (> (org-element-property :begin (a= ref next-request 4)) (org-element-property :begin parent))) nil (let* ((v n= ext-request)) (aset v 4 parent))) (let ((next-request (nth 1 org-element--cache-sync-requests))) (if (and (= org-element-property :cached (aref next-request 4)) (org-element-property := begin (aref next-request 4)) (> (org-element-property :begin (aref next-req= uest 4)) (org-element-property :begin parent))) nil (let* ((v next-request)= ) (aset v 4 parent)))) (progn (if (or org-element--cache-diagnostics (eq org-element--cache-self= -verify 'backtrace)) (progn (let* ((format-string (concat (format "org-elem= ent-cache diagnostics(%s): " ...) "Reached next request.")) (format-string = (format format-string))) (if org-element--cache-diagnostics (warn "%s" form= at-string) (if org-element--cache-diagnostics-ring nil (setq org-element--c= ache-diagnostics-ring (make-ring org-element--cache-diagnostics-ring-size))= ) (ring-insert org-element--cache-diagnostics-ring format-string))))) (let = ((next-request (nth 1 org-element--cache-sync-requests))) (if (and (org-ele= ment-property :cached (aref next-request 4)) (org-element-property :begin (= aref next-request 4)) (> (org-element-property :begin (aref next-request 4)= ) (org-element-property :begin parent))) nil (let* ((v next-request)) (aset= v 4 parent)))) (throw 'quit t)) (if (and next-request-key (not (org-element--cache-key-less-p key next-re= quest-key))) (progn (if (or org-element--cache-diagnostics (eq org-element-= -cache-self-verify 'backtrace)) (progn (let* ((format-string (concat ... "R= eached next request.")) (format-string (format format-string))) (if org-ele= ment--cache-diagnostics (warn "%s" format-string) (if org-element--cache-di= agnostics-ring nil (setq org-element--cache-diagnostics-ring ...)) (ring-in= sert org-element--cache-diagnostics-ring format-string))))) (let ((next-req= uest (nth 1 org-element--cache-sync-requests))) (if (and (org-element-prope= rty :cached (aref next-request 4)) (org-element-property :begin (aref next-= request 4)) (> (org-element-property :begin (aref next-request 4)) (org-ele= ment-property :begin parent))) nil (let* ((v next-request)) (aset v 4 paren= t)))) (throw 'quit t))) (if (org-element--cache-key-less-p key start) nil (if (and next-request-k= ey (not (org-element--cache-key-less-p key next-request-key))) (progn (if (= or org-element--cache-diagnostics (eq org-element--cache-self-verify 'backt= race)) (progn (let* ((format-string ...) (format-string ...)) (if org-eleme= nt--cache-diagnostics (warn "%s" format-string) (if org-element--cache-diag= nostics-ring nil ...) (ring-insert org-element--cache-diagnostics-ring form= at-string))))) (let ((next-request (nth 1 org-element--cache-sync-requests)= )) (if (and (org-element-property :cached (aref next-request 4)) (org-eleme= nt-property :begin (aref next-request 4)) (> (org-element-property :begin .= ..) (org-element-property :begin parent))) nil (let* ((v next-request)) (as= et v 4 parent)))) (throw 'quit t))) (if (or exit-flag (org-element--cache-i= nterrupt-p time-limit)) (progn (if (or org-element--cache-diagnostics (eq o= rg-element--cache-self-verify 'backtrace)) (progn (let* ((format-string ...= ) (format-string ...)) (if org-element--cache-diagnostics (warn "%s" format= -string) (if org-element--cache-diagnostics-ring nil ...) (ring-insert org-= element--cache-diagnostics-ring format-string))))) (let* ((v request)) (ase= t v 0 key)) (let* ((v request)) (aset v 4 parent)) (throw 'org-element--cac= he-interrupt nil))) (if (=3D 0 offset) nil (if (>=3D org-element--cache-dia= gnostics-level 3) (progn (if (or org-element--cache-diagnostics (eq org-ele= ment--cache-self-verify 'backtrace)) (progn (let* (... ...) (if org-element= --cache-diagnostics ... ... ...)))))) (org-element--cache-shift-positions d= ata offset)) (let ((begin (org-element-property :begin data))) (while (and = parent (<=3D (org-element-property :end parent) begin)) (setq parent (org-e= lement-property :parent parent))) (cond ((and (not parent) (=3D 0 offset)) = (throw 'quit nil)) ((and parent (or (not (memq ... org-element-greater-elem= ents)) (and (org-element-property :contents-begin parent) (< ... ...)) (and= (org-element-property :contents-end parent) (>=3D ... ...)) (> (org-elemen= t-property :end data) (org-element-property :end parent)) (and (org-element= -property :contents-end data) (> ... ...)))) (if (or org-element--cache-dia= gnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let* (... = ...) (if org-element--cache-diagnostics ... ... ...)))) (org-element--cache= -remove data) (let* ((v request)) (aset v 0 key)) (let* ((v request)) (aset= v 4 parent)) (setq node (org-element--cache-root) stack (list nil) leftp t= begin -1 continue-flag t)) ((and parent (not (eq parent data)) (let ((p ..= .)) (or (not p) (< ... ...) (if ... nil ...)))) (if (or org-element--cache-= diagnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let* (.= .. ...) (if org-element--cache-diagnostics ... ... ...)))) (if (and (eq 'or= g-data (org-element-type parent)) (not (eq ... ...))) (progn (let* (... ...= ) (if ... ... ...)) (org-element-cache-reset) (throw 'quit t))) (org-elemen= t-put-property data :parent parent) (let ((s (org-element-property :structu= re parent))) (if (and s (org-element-property :structure data)) (progn (org= -element-put-property data :structure s)))))) (if (and threshold (> begin t= hreshold)) (progn (if (or org-element--cache-diagnostics (eq org-element--c= ache-self-verify 'backtrace)) (progn (let* (... ...) (if org-element--cache= -diagnostics ... ... ...)))) (setq exit-flag t))))) (if (and leftp (progn (progn (aref node 0))) (not (org-element--cache-key= -less-p key start))) (progn (setq stack (cons node stack)) (setq node (prog= n (progn (aref node 0))))) (if (org-element--cache-key-less-p key start) ni= l (if (and next-request-key (not (org-element--cache-key-less-p key next-re= quest-key))) (progn (if (or org-element--cache-diagnostics (eq org-element-= -cache-self-verify 'backtrace)) (progn (let* (... ...) (if org-element--cac= he-diagnostics ... ... ...)))) (let ((next-request (nth 1 org-element--cach= e-sync-requests))) (if (and (org-element-property :cached ...) (org-element= -property :begin ...) (> ... ...)) nil (let* (...) (aset v 4 parent)))) (th= row 'quit t))) (if (or exit-flag (org-element--cache-interrupt-p time-limit= )) (progn (if (or org-element--cache-diagnostics (eq org-element--cache-sel= f-verify 'backtrace)) (progn (let* (... ...) (if org-element--cache-diagnos= tics ... ... ...)))) (let* ((v request)) (aset v 0 key)) (let* ((v request)= ) (aset v 4 parent)) (throw 'org-element--cache-interrupt nil))) (if (=3D 0= offset) nil (if (>=3D org-element--cache-diagnostics-level 3) (progn (if (= or org-element--cache-diagnostics (eq org-element--cache-self-verify ...)) = (progn (let* ... ...))))) (org-element--cache-shift-positions data offset))= (let ((begin (org-element-property :begin data))) (while (and parent (<=3D= (org-element-property :end parent) begin)) (setq parent (org-element-prope= rty :parent parent))) (cond ((and (not parent) (=3D 0 offset)) (throw 'quit= nil)) ((and parent (or (not ...) (and ... ...) (and ... ...) (> ... ...) (= and ... ...))) (if (or org-element--cache-diagnostics (eq org-element--cach= e-self-verify ...)) (progn (let* ... ...))) (org-element--cache-remove data= ) (let* ((v request)) (aset v 0 key)) (let* ((v request)) (aset v 4 parent)= ) (setq node (org-element--cache-root) stack (list nil) leftp t begin -1 co= ntinue-flag t)) ((and parent (not (eq parent data)) (let (...) (or ... ... = ...))) (if (or org-element--cache-diagnostics (eq org-element--cache-self-v= erify ...)) (progn (let* ... ...))) (if (and (eq ... ...) (not ...)) (progn= (let* ... ...) (org-element-cache-reset) (throw ... t))) (org-element-put-= property data :parent parent) (let ((s ...)) (if (and s ...) (progn ...))))= ) (if (and threshold (> begin threshold)) (progn (if (or org-element--cache= -diagnostics (eq org-element--cache-self-verify ...)) (progn (let* ... ...)= )) (setq exit-flag t))))) (if continue-flag (setq continue-flag nil) (setq = node (if (setq leftp (progn (progn (aref node 1)))) (progn (progn (aref nod= e 1))) (car-safe (prog1 stack (setq stack (cdr stack)))))))) (let* ((data (progn (progn (aref node 2)))) (key (org-element--cache-key = data))) (if (and leftp (progn (progn (aref node 0))) (not (org-element--cac= he-key-less-p key start))) (progn (setq stack (cons node stack)) (setq node= (progn (progn (aref node 0))))) (if (org-element--cache-key-less-p key sta= rt) nil (if (and next-request-key (not (org-element--cache-key-less-p key n= ext-request-key))) (progn (if (or org-element--cache-diagnostics (eq org-el= ement--cache-self-verify ...)) (progn (let* ... ...))) (let ((next-request = ...)) (if (and ... ... ...) nil (let* ... ...))) (throw 'quit t))) (if (or = exit-flag (org-element--cache-interrupt-p time-limit)) (progn (if (or org-e= lement--cache-diagnostics (eq org-element--cache-self-verify ...)) (progn (= let* ... ...))) (let* ((v request)) (aset v 0 key)) (let* ((v request)) (as= et v 4 parent)) (throw 'org-element--cache-interrupt nil))) (if (=3D 0 offs= et) nil (if (>=3D org-element--cache-diagnostics-level 3) (progn (if (or or= g-element--cache-diagnostics ...) (progn ...)))) (org-element--cache-shift-= positions data offset)) (let ((begin (org-element-property :begin data))) (= while (and parent (<=3D (org-element-property :end parent) begin)) (setq pa= rent (org-element-property :parent parent))) (cond ((and (not parent) (=3D = 0 offset)) (throw 'quit nil)) ((and parent (or ... ... ... ... ...)) (if (o= r org-element--cache-diagnostics ...) (progn ...)) (org-element--cache-remo= ve data) (let* (...) (aset v 0 key)) (let* (...) (aset v 4 parent)) (setq n= ode (org-element--cache-root) stack (list nil) leftp t begin -1 continue-fl= ag t)) ((and parent (not ...) (let ... ...)) (if (or org-element--cache-dia= gnostics ...) (progn ...)) (if (and ... ...) (progn ... ... ...)) (org-elem= ent-put-property data :parent parent) (let (...) (if ... ...)))) (if (and t= hreshold (> begin threshold)) (progn (if (or org-element--cache-diagnostics= ...) (progn ...)) (setq exit-flag t))))) (if continue-flag (setq continue-= flag nil) (setq node (if (setq leftp (progn (progn ...))) (progn (progn (ar= ef node 1))) (car-safe (prog1 stack (setq stack ...)))))))) (while node (let* ((data (progn (progn (aref node 2)))) (key (org-element= --cache-key data))) (if (and leftp (progn (progn (aref node 0))) (not (org-= element--cache-key-less-p key start))) (progn (setq stack (cons node stack)= ) (setq node (progn (progn (aref node 0))))) (if (org-element--cache-key-le= ss-p key start) nil (if (and next-request-key (not (org-element--cache-key-= less-p key next-request-key))) (progn (if (or org-element--cache-diagnostic= s ...) (progn ...)) (let (...) (if ... nil ...)) (throw 'quit t))) (if (or = exit-flag (org-element--cache-interrupt-p time-limit)) (progn (if (or org-e= lement--cache-diagnostics ...) (progn ...)) (let* (...) (aset v 0 key)) (le= t* (...) (aset v 4 parent)) (throw 'org-element--cache-interrupt nil))) (if= (=3D 0 offset) nil (if (>=3D org-element--cache-diagnostics-level 3) (prog= n (if ... ...))) (org-element--cache-shift-positions data offset)) (let ((b= egin (org-element-property :begin data))) (while (and parent (<=3D ... begi= n)) (setq parent (org-element-property :parent parent))) (cond ((and ... ..= .) (throw ... nil)) ((and parent ...) (if ... ...) (org-element--cache-remo= ve data) (let* ... ...) (let* ... ...) (setq node ... stack ... leftp t beg= in -1 continue-flag t)) ((and parent ... ...) (if ... ...) (if ... ...) (or= g-element-put-property data :parent parent) (let ... ...))) (if (and thresh= old (> begin threshold)) (progn (if ... ...) (setq exit-flag t))))) (if con= tinue-flag (setq continue-flag nil) (setq node (if (setq leftp (progn ...))= (progn (progn ...)) (car-safe (prog1 stack ...)))))))) (let ((start (aref request 0)) (offset (aref request 3)) (parent (aref re= quest 4)) (node (org-element--cache-root)) (stack (list nil)) (leftp t) exi= t-flag continue-flag) (if (and (not parent) (=3D 0 offset)) (progn (if (or = org-element--cache-diagnostics (eq org-element--cache-self-verify 'backtrac= e)) (progn (let* ((format-string ...) (format-string ...)) (if org-element-= -cache-diagnostics (warn "%s" format-string) (if org-element--cache-diagnos= tics-ring nil ...) (ring-insert org-element--cache-diagnostics-ring format-= string))))) (throw 'quit t))) (while node (let* ((data (progn (progn (aref = node 2)))) (key (org-element--cache-key data))) (if (and leftp (progn (prog= n (aref node 0))) (not (org-element--cache-key-less-p key start))) (progn (= setq stack (cons node stack)) (setq node (progn (progn ...)))) (if (org-ele= ment--cache-key-less-p key start) nil (if (and next-request-key (not ...)) = (progn (if ... ...) (let ... ...) (throw ... t))) (if (or exit-flag (org-el= ement--cache-interrupt-p time-limit)) (progn (if ... ...) (let* ... ...) (l= et* ... ...) (throw ... nil))) (if (=3D 0 offset) nil (if (>=3D org-element= --cache-diagnostics-level 3) (progn ...)) (org-element--cache-shift-positio= ns data offset)) (let ((begin ...)) (while (and parent ...) (setq parent ..= .)) (cond (... ...) (... ... ... ... ... ...) (... ... ... ... ...)) (if (a= nd threshold ...) (progn ... ...)))) (if continue-flag (setq continue-flag = nil) (setq node (if (setq leftp ...) (progn ...) (car-safe ...))))))) t) (catch 'quit (if (=3D (aref request 5) 0) (progn (if (or org-element--cac= he-diagnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let*= ((format-string ...) (format-string ...)) (if org-element--cache-diagnosti= cs (warn "%s" format-string) (if org-element--cache-diagnostics-ring nil ..= .) (ring-insert org-element--cache-diagnostics-ring format-string))))) (cat= ch 'end-phase (let ((deletion-count 0)) (while t (if (org-element--cache-in= terrupt-p time-limit) (progn ... ...)) (let (... ... ... data data-key) (wh= ile node ...) (if data ... ... ...))))))) (if (=3D (aref request 5) 1) (pro= gn (if (or org-element--cache-diagnostics (eq org-element--cache-self-verif= y 'backtrace)) (progn (let* ((format-string ...) (format-string ...)) (if o= rg-element--cache-diagnostics (warn "%s" format-string) (if org-element--ca= che-diagnostics-ring nil ...) (ring-insert org-element--cache-diagnostics-r= ing format-string))))) (let ((key (aref request 0))) (if (and next-request-= key (not (org-element--cache-key-less-p key next-request-key))) (progn (let= (...) (if ... ...) (let* ... ...) (let* ... ...) (let* ... ...) (throw ...= t))))) (let ((limit (+ (aref request 1) (aref request 3)))) (cond ((and th= reshold (> limit threshold)) (if (or org-element--cache-diagnostics ...) (p= rogn ...)) (throw 'org-element--cache-interrupt nil)) ((and future-change (= >=3D limit future-change)) (if (or org-element--cache-diagnostics ...) (pro= gn ...)) (let* (...) (aset v 4 nil)) (let* (...) (aset v 5 2))) (t (let (..= .) (if ... ...) (let* ... ...) (let* ... ...))))))) (if (or org-element--ca= che-diagnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let= * ((format-string (concat (format "org-element-cache diagnostics(%s): " ...= ) "Phase 2")) (format-string (format format-string))) (if org-element--cach= e-diagnostics (warn "%s" format-string) (if org-element--cache-diagnostics-= ring nil (setq org-element--cache-diagnostics-ring (make-ring org-element--= cache-diagnostics-ring-size))) (ring-insert org-element--cache-diagnostics-= ring format-string))))) (let ((start (aref request 0)) (offset (aref reques= t 3)) (parent (aref request 4)) (node (org-element--cache-root)) (stack (li= st nil)) (leftp t) exit-flag continue-flag) (if (and (not parent) (=3D 0 of= fset)) (progn (if (or org-element--cache-diagnostics (eq org-element--cache= -self-verify 'backtrace)) (progn (let* (... ...) (if org-element--cache-dia= gnostics ... ... ...)))) (throw 'quit t))) (while node (let* ((data (progn = (progn ...))) (key (org-element--cache-key data))) (if (and leftp (progn (p= rogn ...)) (not (org-element--cache-key-less-p key start))) (progn (setq st= ack (cons node stack)) (setq node (progn ...))) (if (org-element--cache-key= -less-p key start) nil (if (and next-request-key ...) (progn ... ... ...)) = (if (or exit-flag ...) (progn ... ... ... ...)) (if (=3D 0 offset) nil (if = ... ...) (org-element--cache-shift-positions data offset)) (let (...) (whil= e ... ...) (cond ... ... ...) (if ... ...))) (if continue-flag (setq contin= ue-flag nil) (setq node (if ... ... ...)))))) t)) org-element--cache-process-request([27553 26834 nil -6 nil 2] 27568 32741= nil nil) (while org-element--cache-sync-requests (setq request (car org-element--c= ache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (org-ele= ment--cache-process-request request (if next (progn (aref next 0))) thresho= ld (if threshold nil time-limit) future-change) (setq request (car org-elem= ent--cache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (i= f next (progn (let* ((v next)) (aset v 3 (+ (aref v 3) (aref request 3)))) = (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify '= backtrace)) (progn (let* ((format-string ...) (format-string ...)) (if org-= element--cache-diagnostics (warn "%s" format-string) (if org-element--cache= -diagnostics-ring nil ...) (ring-insert org-element--cache-diagnostics-ring= format-string))))) (let* ((v next)) (aset v 2 (aref request 2))))) (setq o= rg-element--cache-sync-requests (cdr org-element--cache-sync-requests))) (catch 'org-element--cache-interrupt (if org-element--cache-sync-requests= (progn (if (or org-element--cache-diagnostics (eq org-element--cache-self-= verify 'backtrace)) (progn (let* ((format-string ...) (format-string ...)) = (if org-element--cache-diagnostics (warn "%s" format-string) (if org-elemen= t--cache-diagnostics-ring nil ...) (ring-insert org-element--cache-diagnost= ics-ring format-string))))))) (while org-element--cache-sync-requests (setq= request (car org-element--cache-sync-requests) next (nth 1 org-element--ca= che-sync-requests)) (org-element--cache-process-request request (if next (p= rogn (aref next 0))) threshold (if threshold nil time-limit) future-change)= (setq request (car org-element--cache-sync-requests) next (nth 1 org-eleme= nt--cache-sync-requests)) (if next (progn (let* ((v next)) (aset v 3 (+ (ar= ef v 3) (aref request 3)))) (if (or org-element--cache-diagnostics (eq org-= element--cache-self-verify 'backtrace)) (progn (let* (... ...) (if org-elem= ent--cache-diagnostics ... ... ...)))) (let* ((v next)) (aset v 2 (aref req= uest 2))))) (setq org-element--cache-sync-requests (cdr org-element--cache-= sync-requests)))) (let ((time-limit (time-add nil org-element-cache-sync-duration))) (catch= 'org-element--cache-interrupt (if org-element--cache-sync-requests (progn = (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify '= backtrace)) (progn (let* (... ...) (if org-element--cache-diagnostics ... .= .. ...)))))) (while org-element--cache-sync-requests (setq request (car org= -element--cache-sync-requests) next (nth 1 org-element--cache-sync-requests= )) (org-element--cache-process-request request (if next (progn (aref next 0= ))) threshold (if threshold nil time-limit) future-change) (setq request (c= ar org-element--cache-sync-requests) next (nth 1 org-element--cache-sync-re= quests)) (if next (progn (let* ((v next)) (aset v 3 (+ ... ...))) (if (or o= rg-element--cache-diagnostics (eq org-element--cache-self-verify ...)) (pro= gn (let* ... ...))) (let* ((v next)) (aset v 2 (aref request 2))))) (setq o= rg-element--cache-sync-requests (cdr org-element--cache-sync-requests))))) (let ((inhibit-quit t) request next) (setq org-element--cache-interrupt-C= -g-count 0) (if org-element--cache-sync-timer (progn (cancel-timer org-elem= ent--cache-sync-timer))) (let ((time-limit (time-add nil org-element-cache-= sync-duration))) (catch 'org-element--cache-interrupt (if org-element--cach= e-sync-requests (progn (if (or org-element--cache-diagnostics (eq org-eleme= nt--cache-self-verify ...)) (progn (let* ... ...))))) (while org-element--c= ache-sync-requests (setq request (car org-element--cache-sync-requests) nex= t (nth 1 org-element--cache-sync-requests)) (org-element--cache-process-req= uest request (if next (progn (aref next 0))) threshold (if threshold nil ti= me-limit) future-change) (setq request (car org-element--cache-sync-request= s) next (nth 1 org-element--cache-sync-requests)) (if next (progn (let* (..= .) (aset v 3 ...)) (if (or org-element--cache-diagnostics ...) (progn ...))= (let* (...) (aset v 2 ...)))) (setq org-element--cache-sync-requests (cdr = org-element--cache-sync-requests))))) (if org-element--cache-sync-requests = (org-element--cache-set-timer buffer) (setq org-element--cache-sync-keys-va= lue (1+ org-element--cache-sync-keys-value)))) (if (and (/=3D org-element--cache-change-tic (buffer-chars-modified-tick)= ) (/=3D (buffer-chars-modified-tick) (buffer-modified-tick)) (not (=3D (buf= fer-chars-modified-tick) (- (buffer-modified-tick) 6))) (not (=3D (buffer-c= hars-modified-tick) (- (buffer-modified-tick) 7)))) (progn (if (or org-elem= ent--cache-diagnostics-modifications (and (boundp 'org-batch-test) org-batc= h-test)) (progn (let* ((format-string (format "Unregistered buffer modifica= tions detected. Resett..." ... this-command ...)) (format-string (if ... fo= rmat-string ...))) (if (and (boundp ...) org-batch-test) (error "%s" (conca= t "org-element--cache: " format-string)) (warn "%s" (concat "org-element--c= ache: " format-string)))))) (org-element-cache-reset)) (let ((inhibit-quit = t) request next) (setq org-element--cache-interrupt-C-g-count 0) (if org-el= ement--cache-sync-timer (progn (cancel-timer org-element--cache-sync-timer)= )) (let ((time-limit (time-add nil org-element-cache-sync-duration))) (catc= h 'org-element--cache-interrupt (if org-element--cache-sync-requests (progn= (if (or org-element--cache-diagnostics ...) (progn ...)))) (while org-elem= ent--cache-sync-requests (setq request (car org-element--cache-sync-request= s) next (nth 1 org-element--cache-sync-requests)) (org-element--cache-proce= ss-request request (if next (progn ...)) threshold (if threshold nil time-l= imit) future-change) (setq request (car org-element--cache-sync-requests) n= ext (nth 1 org-element--cache-sync-requests)) (if next (progn (let* ... ...= ) (if ... ...) (let* ... ...))) (setq org-element--cache-sync-requests (cdr= org-element--cache-sync-requests))))) (if org-element--cache-sync-requests= (org-element--cache-set-timer buffer) (setq org-element--cache-sync-keys-v= alue (1+ org-element--cache-sync-keys-value))))) (save-current-buffer (set-buffer (or (buffer-base-buffer buffer) buffer))= (if (and (/=3D org-element--cache-change-tic (buffer-chars-modified-tick))= (/=3D (buffer-chars-modified-tick) (buffer-modified-tick)) (not (=3D (buff= er-chars-modified-tick) (- (buffer-modified-tick) 6))) (not (=3D (buffer-ch= ars-modified-tick) (- (buffer-modified-tick) 7)))) (progn (if (or org-eleme= nt--cache-diagnostics-modifications (and (boundp 'org-batch-test) org-batch= -test)) (progn (let* ((format-string ...) (format-string ...)) (if (and ...= org-batch-test) (error "%s" ...) (warn "%s" ...))))) (org-element-cache-re= set)) (let ((inhibit-quit t) request next) (setq org-element--cache-interru= pt-C-g-count 0) (if org-element--cache-sync-timer (progn (cancel-timer org-= element--cache-sync-timer))) (let ((time-limit (time-add nil org-element-ca= che-sync-duration))) (catch 'org-element--cache-interrupt (if org-element--= cache-sync-requests (progn (if ... ...))) (while org-element--cache-sync-re= quests (setq request (car org-element--cache-sync-requests) next (nth 1 org= -element--cache-sync-requests)) (org-element--cache-process-request request= (if next ...) threshold (if threshold nil time-limit) future-change) (setq= request (car org-element--cache-sync-requests) next (nth 1 org-element--ca= che-sync-requests)) (if next (progn ... ... ...)) (setq org-element--cache-= sync-requests (cdr org-element--cache-sync-requests))))) (if org-element--c= ache-sync-requests (org-element--cache-set-timer buffer) (setq org-element-= -cache-sync-keys-value (1+ org-element--cache-sync-keys-value)))))) (progn (save-current-buffer (set-buffer (or (buffer-base-buffer buffer) b= uffer)) (if (and (/=3D org-element--cache-change-tic (buffer-chars-modified= -tick)) (/=3D (buffer-chars-modified-tick) (buffer-modified-tick)) (not (= =3D (buffer-chars-modified-tick) (- (buffer-modified-tick) 6))) (not (=3D (= buffer-chars-modified-tick) (- (buffer-modified-tick) 7)))) (progn (if (or = org-element--cache-diagnostics-modifications (and (boundp ...) org-batch-te= st)) (progn (let* (... ...) (if ... ... ...)))) (org-element-cache-reset)) = (let ((inhibit-quit t) request next) (setq org-element--cache-interrupt-C-g= -count 0) (if org-element--cache-sync-timer (progn (cancel-timer org-elemen= t--cache-sync-timer))) (let ((time-limit (time-add nil org-element-cache-sy= nc-duration))) (catch 'org-element--cache-interrupt (if org-element--cache-= sync-requests (progn ...)) (while org-element--cache-sync-requests (setq re= quest ... next ...) (org-element--cache-process-request request ... thresho= ld ... future-change) (setq request ... next ...) (if next ...) (setq org-e= lement--cache-sync-requests ...)))) (if org-element--cache-sync-requests (o= rg-element--cache-set-timer buffer) (setq org-element--cache-sync-keys-valu= e (1+ org-element--cache-sync-keys-value))))))) (if (buffer-live-p buffer) (progn (save-current-buffer (set-buffer (or (b= uffer-base-buffer buffer) buffer)) (if (and (/=3D org-element--cache-change= -tic (buffer-chars-modified-tick)) (/=3D (buffer-chars-modified-tick) (buff= er-modified-tick)) (not (=3D (buffer-chars-modified-tick) (- ... 6))) (not = (=3D (buffer-chars-modified-tick) (- ... 7)))) (progn (if (or org-element--= cache-diagnostics-modifications (and ... org-batch-test)) (progn (let* ... = ...))) (org-element-cache-reset)) (let ((inhibit-quit t) request next) (set= q org-element--cache-interrupt-C-g-count 0) (if org-element--cache-sync-tim= er (progn (cancel-timer org-element--cache-sync-timer))) (let ((time-limit = ...)) (catch 'org-element--cache-interrupt (if org-element--cache-sync-requ= ests ...) (while org-element--cache-sync-requests ... ... ... ... ...))) (i= f org-element--cache-sync-requests (org-element--cache-set-timer buffer) (s= etq org-element--cache-sync-keys-value (1+ org-element--cache-sync-keys-val= ue)))))))) org-element--cache-sync(# 32741) (if cached-only nil (org-element--cache-sync (current-buffer) pom)) (if (not org-element--cache) (org-element-cache-reset) (if cached-only ni= l (org-element--cache-sync (current-buffer) pom))) (progn (if (not org-element--cache) (org-element-cache-reset) (if cached-= only nil (org-element--cache-sync (current-buffer) pom)))) (if (org-element--cache-active-p) (progn (if (not org-element--cache) (or= g-element-cache-reset) (if cached-only nil (org-element--cache-sync (curren= t-buffer) pom))))) (let (element) (if (org-element--cache-active-p) (progn (if (not org-elem= ent--cache) (org-element-cache-reset) (if cached-only nil (org-element--cac= he-sync (current-buffer) pom))))) (setq element (if cached-only (and (org-e= lement--cache-active-p) (or (not org-element--cache-sync-requests) (org-ele= ment--cache-key-less-p pom (aref (car org-element--cache-sync-requests) 0))= ) (org-element--cache-find pom)) (condition-case err (org-element--parse-to= pom) (error (let* ((format-string ...) (format-string ...)) (if (and ... o= rg-batch-test) (error "%s" ...) (warn "%s" ...))) (org-element-cache-reset)= (org-element--parse-to pom))))) (if (and (org-element--cache-active-p) ele= ment (org-element--cache-verify-element element)) (progn (setq element (org= -element--parse-to pom)))) (if (eq 'org-data (org-element-type element)) ni= l (if (and cached-only (not (and element (or (=3D pom ...) (and ... ... ...= ) (and ... ... ...) (and ... ... ...))))) nil (if (not (eq (org-element-typ= e element) 'section)) element (org-element-at-point (1+ pom) cached-only)))= )) org-element-at-point() (let ((pos (point)) (element (org-element-at-point))) (cond ((org-hide-bl= ock-toggle nil t element)) ((org-hide-drawer-toggle nil t element)) ((and (= org-match-line "[ \11]*[|+]") (org-element-lineage element '(table) t)) (if= (and (eq 'table (org-element-type element)) (eq 'table\.el (org-element-pr= operty :type element))) (message (substitute-command-keys "\\= Use `\\[org-edit-special]' to edit t...")) (org-table-justify-field-maybe) = (call-interactively #'org-table-next-field))) ((run-hook-with-args-until-su= ccess 'org-tab-after-check-for-table-hook)) ((and (or (and org-cycle-includ= e-plain-lists (let (...) (and item ...))) (org-match-line org-outline-regex= p)) (or (bolp) (not (eq org-cycle-emulate-tab 'exc-hl-bol)))) (org-cycle-in= ternal-local)) (buffer-read-only (org-back-to-heading)) ((run-hook-with-arg= s-until-success 'org-tab-after-check-for-cycling-hook)) ((run-hook-with-arg= s-until-success 'org-tab-before-tab-emulation-hook)) ((and (eq org-cycle-em= ulate-tab 'exc-hl-bol) (or (not (bolp)) (not (looking-at org-outline-regexp= )))) (call-interactively (global-key-binding (kbd "TAB")))) ((or (eq org-cy= cle-emulate-tab t) (and (memq org-cycle-emulate-tab '(white whitestart)) (s= ave-excursion (beginning-of-line 1) (looking-at "[ \11]*")) (or (and (eq or= g-cycle-emulate-tab ...) (=3D ... ...)) (and (eq org-cycle-emulate-tab ...)= (>=3D ... pos))))) (call-interactively (global-key-binding (kbd "TAB")))) = (t (save-excursion (org-back-to-heading) (org-cycle))))) (cond ((equal arg '(16)) (setq last-command 'dummy) (org-set-startup-visi= bility) (org-unlogged-message "Startup visibility, plus VISIBILITY properti= es")) ((equal arg '(64)) (org-show-all) (org-unlogged-message "Entire buffe= r visible, including drawers")) ((equal arg '(4)) (org-cycle-internal-globa= l)) ((integerp arg) (save-excursion (org-back-to-heading) (outline-up-headi= ng (if (< arg 0) (- arg) (- (funcall outline-level) arg))) (org-show-subtre= e))) ((and org-cycle-global-at-bob (bobp) (not (looking-at org-outline-rege= xp))) (let ((org-cycle-hook (remq 'org-optimize-window-after-visibility-cha= nge org-cycle-hook))) (org-cycle-internal-global))) ((org-try-cdlatex-tab))= ((and (featurep 'org-inlinetask) (org-inlinetask-at-task-p) (or (bolp) (no= t (eq org-cycle-emulate-tab 'exc-hl-bol)))) (org-inlinetask-toggle-visibili= ty)) (t (let ((pos (point)) (element (org-element-at-point))) (cond ((org-h= ide-block-toggle nil t element)) ((org-hide-drawer-toggle nil t element)) (= (and (org-match-line "[ \11]*[|+]") (org-element-lineage element '... t)) (= if (and (eq ... ...) (eq ... ...)) (message (substitute-command-keys "\\Use `\\[org-edit-special]' to edit t...")) (org-table-justify-fi= eld-maybe) (call-interactively #'org-table-next-field))) ((run-hook-with-ar= gs-until-success 'org-tab-after-check-for-table-hook)) ((and (or (and org-c= ycle-include-plain-lists ...) (org-match-line org-outline-regexp)) (or (bol= p) (not ...))) (org-cycle-internal-local)) (buffer-read-only (org-back-to-h= eading)) ((run-hook-with-args-until-success 'org-tab-after-check-for-cyclin= g-hook)) ((run-hook-with-args-until-success 'org-tab-before-tab-emulation-h= ook)) ((and (eq org-cycle-emulate-tab 'exc-hl-bol) (or (not ...) (not ...))= ) (call-interactively (global-key-binding (kbd "TAB")))) ((or (eq org-cycle= -emulate-tab t) (and (memq org-cycle-emulate-tab ...) (save-excursion ... .= ..) (or ... ...))) (call-interactively (global-key-binding (kbd "TAB")))) (= t (save-excursion (org-back-to-heading) (org-cycle))))))) (let* ((limit-level (or org-cycle-max-level (and (boundp 'org-inlinetask-= min-level) org-inlinetask-min-level (1- org-inlinetask-min-level)))) (nstar= s (and limit-level (if org-odd-levels-only (1- (* 2 limit-level)) limit-lev= el))) (org-outline-regexp (format "\\*%s " (if nstars (format "\\{1,%d\\}" = nstars) "+")))) (cond ((equal arg '(16)) (setq last-command 'dummy) (org-se= t-startup-visibility) (org-unlogged-message "Startup visibility, plus VISIB= ILITY properties")) ((equal arg '(64)) (org-show-all) (org-unlogged-message= "Entire buffer visible, including drawers")) ((equal arg '(4)) (org-cycle-= internal-global)) ((integerp arg) (save-excursion (org-back-to-heading) (ou= tline-up-heading (if (< arg 0) (- arg) (- (funcall outline-level) arg))) (o= rg-show-subtree))) ((and org-cycle-global-at-bob (bobp) (not (looking-at or= g-outline-regexp))) (let ((org-cycle-hook (remq 'org-optimize-window-after-= visibility-change org-cycle-hook))) (org-cycle-internal-global))) ((org-try= -cdlatex-tab)) ((and (featurep 'org-inlinetask) (org-inlinetask-at-task-p) = (or (bolp) (not (eq org-cycle-emulate-tab 'exc-hl-bol)))) (org-inlinetask-t= oggle-visibility)) (t (let ((pos (point)) (element (org-element-at-point)))= (cond ((org-hide-block-toggle nil t element)) ((org-hide-drawer-toggle nil= t element)) ((and (org-match-line "[ \11]*[|+]") (org-element-lineage elem= ent ... t)) (if (and ... ...) (message ...) (org-table-justify-field-maybe)= (call-interactively ...))) ((run-hook-with-args-until-success 'org-tab-aft= er-check-for-table-hook)) ((and (or ... ...) (or ... ...)) (org-cycle-inter= nal-local)) (buffer-read-only (org-back-to-heading)) ((run-hook-with-args-u= ntil-success 'org-tab-after-check-for-cycling-hook)) ((run-hook-with-args-u= ntil-success 'org-tab-before-tab-emulation-hook)) ((and (eq org-cycle-emula= te-tab ...) (or ... ...)) (call-interactively (global-key-binding ...))) ((= or (eq org-cycle-emulate-tab t) (and ... ... ...)) (call-interactively (glo= bal-key-binding ...))) (t (save-excursion (org-back-to-heading) (org-cycle)= ))))))) (if (or (run-hook-with-args-until-success 'org-tab-first-hook) (and org-c= ycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-item-= indentation)))) nil (let* ((limit-level (or org-cycle-max-level (and (bound= p 'org-inlinetask-min-level) org-inlinetask-min-level (1- org-inlinetask-mi= n-level)))) (nstars (and limit-level (if org-odd-levels-only (1- (* 2 limit= -level)) limit-level))) (org-outline-regexp (format "\\*%s " (if nstars (fo= rmat "\\{1,%d\\}" nstars) "+")))) (cond ((equal arg '(16)) (setq last-comma= nd 'dummy) (org-set-startup-visibility) (org-unlogged-message "Startup visi= bility, plus VISIBILITY properties")) ((equal arg '(64)) (org-show-all) (or= g-unlogged-message "Entire buffer visible, including drawers")) ((equal arg= '(4)) (org-cycle-internal-global)) ((integerp arg) (save-excursion (org-ba= ck-to-heading) (outline-up-heading (if (< arg 0) (- arg) (- ... arg))) (org= -show-subtree))) ((and org-cycle-global-at-bob (bobp) (not (looking-at org-= outline-regexp))) (let ((org-cycle-hook (remq ... org-cycle-hook))) (org-cy= cle-internal-global))) ((org-try-cdlatex-tab)) ((and (featurep 'org-inlinet= ask) (org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulate-tab .= ..)))) (org-inlinetask-toggle-visibility)) (t (let ((pos (point)) (element = (org-element-at-point))) (cond ((org-hide-block-toggle nil t element)) ((or= g-hide-drawer-toggle nil t element)) ((and ... ...) (if ... ... ... ...)) (= (run-hook-with-args-until-success ...)) ((and ... ...) (org-cycle-internal-= local)) (buffer-read-only (org-back-to-heading)) ((run-hook-with-args-until= -success ...)) ((run-hook-with-args-until-success ...)) ((and ... ...) (cal= l-interactively ...)) ((or ... ...) (call-interactively ...)) (t (save-excu= rsion ... ...)))))))) (closure (org-priority-regexp org-mode-abbrev-table org-mode-syntax-table= org-element-use-cache org-element-cache-persistent buffer-face-mode-face o= rg-tbl-menu org-org-menu org-struct-menu org-entities org-last-state org-id= -track-globally org-clock-start-time texmathp-why remember-data-file org-ag= enda-tags-todo-honor-ignore-options iswitchb-temp-buflist calc-embedded-ope= n-mode calc-embedded-open-formula calc-embedded-close-formula align-mode-ru= les-list org-emphasis-alist org-emphasis-regexp-components org-export-regis= tered-backends org-modules crm-separator org-babel-load-languages org-id-ov= erriding-file-name org-indent-indentation-per-level org-element-paragraph-s= eparate org-agenda-buffer-name org-inlinetask-min-level t) (&optional arg) = "TAB-action and visibility cycling for Org mode.\n\nT..." (interactive "P")= (org-load-modules-maybe) (if (or (run-hook-with-args-until-success 'org-ta= b-first-hook) (and org-cycle-level-after-item/entry-creation (or (org-cycle= -level) (org-cycle-item-indentation)))) nil (let* ((limit-level (or org-cyc= le-max-level (and ... org-inlinetask-min-level ...))) (nstars (and limit-le= vel (if org-odd-levels-only ... limit-level))) (org-outline-regexp (format = "\\*%s " (if nstars ... "+")))) (cond ((equal arg '...) (setq last-command = 'dummy) (org-set-startup-visibility) (org-unlogged-message "Startup visibil= ity, plus VISIBILITY properties")) ((equal arg '...) (org-show-all) (org-un= logged-message "Entire buffer visible, including drawers")) ((equal arg '..= .) (org-cycle-internal-global)) ((integerp arg) (save-excursion (org-back-t= o-heading) (outline-up-heading ...) (org-show-subtree))) ((and org-cycle-gl= obal-at-bob (bobp) (not ...)) (let (...) (org-cycle-internal-global))) ((or= g-try-cdlatex-tab)) ((and (featurep ...) (org-inlinetask-at-task-p) (or ...= ...)) (org-inlinetask-toggle-visibility)) (t (let (... ...) (cond ... ... = ... ... ... ... ... ... ... ... ...)))))))(nil) apply((closure (org-priority-regexp org-mode-abbrev-table org-mode-syntax= -table org-element-use-cache org-element-cache-persistent buffer-face-mode-= face org-tbl-menu org-org-menu org-struct-menu org-entities org-last-state = org-id-track-globally org-clock-start-time texmathp-why remember-data-file = org-agenda-tags-todo-honor-ignore-options iswitchb-temp-buflist calc-embedd= ed-open-mode calc-embedded-open-formula calc-embedded-close-formula align-m= ode-rules-list org-emphasis-alist org-emphasis-regexp-components org-export= -registered-backends org-modules crm-separator org-babel-load-languages org= -id-overriding-file-name org-indent-indentation-per-level org-element-parag= raph-separate org-agenda-buffer-name org-inlinetask-min-level t) (&optional= arg) "TAB-action and visibility cycling for Org mode.\n\nT..." (interactiv= e "P") (org-load-modules-maybe) (if (or (run-hook-with-args-until-success '= org-tab-first-hook) (and org-cycle-level-after-item/entry-creation (or (org= -cycle-level) (org-cycle-item-indentation)))) nil (let* ((limit-level (or o= rg-cycle-max-level (and ... org-inlinetask-min-level ...))) (nstars (and li= mit-level (if org-odd-levels-only ... limit-level))) (org-outline-regexp (f= ormat "\\*%s " (if nstars ... "+")))) (cond ((equal arg '...) (setq last-co= mmand 'dummy) (org-set-startup-visibility) (org-unlogged-message "Startup v= isibility, plus VISIBILITY properties")) ((equal arg '...) (org-show-all) (= org-unlogged-message "Entire buffer visible, including drawers")) ((equal a= rg '...) (org-cycle-internal-global)) ((integerp arg) (save-excursion (org-= back-to-heading) (outline-up-heading ...) (org-show-subtree))) ((and org-cy= cle-global-at-bob (bobp) (not ...)) (let (...) (org-cycle-internal-global))= ) ((org-try-cdlatex-tab)) ((and (featurep ...) (org-inlinetask-at-task-p) (= or ... ...)) (org-inlinetask-toggle-visibility)) (t (let (... ...) (cond ..= . ... ... ... ... ... ... ... ... ... ...))))))) nil) org-cycle(nil) funcall-interactively(org-cycle nil) call-interactively(org-cycle nil nil) command-execute(org-cycle) #+end_example =2D-=20 [ stardiviner ] I try to make every word tell the meaning that I want to express. Blog: https://stardiviner.github.io/ IRC(freenode): stardiviner, Matrix: stardiviner GPG: F09F650D7D674819892591401B5DF1C95AE89AC3 --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQEzBAEBCAAdFiEE8J9lDX1nSBmJJZFAG13xyVromsMFAmGY3VsACgkQG13xyVro msPwNAgAiZsrBoYIFILdJO2fZiCxBOfUGZlOQGFHLXiZLkR2CzNRzKbSxVANfr3e RRIe/E+P4Fl4D0fjNsiu/SLCcMdMMmwp7XaTb3AEoxwv0CC4sLbDSo6UbXYR8zXh kSvpnB93ctcjkEyC9K74IaOH9Dj8TQ6dwASd61Q2gBzdfrxexQ4l1/A631eJQJlG MOCgVoMvXzgPRP4vvILCA57eWkZpuyzvH0c3lT+/SkNVYnlHRBYqjAR/wqV4VZXz fk8RHzgz45iK/fUMqyIap/7VtIx2E/RAbe2r8t0Ut/kh5/c7sNbcuD6Uju13muUD BB/5h1Vhq/3glvXAwq/sm+BeUbY44A== =ZXiB -----END PGP SIGNATURE----- --=-=-=--