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 sAoYGS1xrGF8GgEAgWs5BA (envelope-from ) for ; Sun, 05 Dec 2021 08:58:37 +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 qK2fFC1xrGEDOQAAbx9fmQ (envelope-from ) for ; Sun, 05 Dec 2021 07:58:37 +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 AB1532E93A for ; Sun, 5 Dec 2021 08:58:36 +0100 (CET) Received: from localhost ([::1]:52178 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mtmPq-0003xU-Pc for larch@yhetil.org; Sun, 05 Dec 2021 02:58:34 -0500 Received: from eggs.gnu.org ([209.51.188.92]:56740) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mtmP0-0003vq-FM for emacs-orgmode@gnu.org; Sun, 05 Dec 2021 02:57:42 -0500 Received: from mout.perfora.net ([74.208.4.196]:59497) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mtmOw-0008Qq-9E for emacs-orgmode@gnu.org; Sun, 05 Dec 2021 02:57:42 -0500 Received: from *@jaydresser.us ([68.186.50.156]) by mrelay.perfora.net (mreueus004 [74.208.5.2]) with ESMTPSA (Nemesis) id 1MlOHx-1m8sFe2eTN-00ljNn; Sun, 05 Dec 2021 08:57:35 +0100 From: Jay Dresser To: Ihor Radchenko Subject: Re: [BUG] Org requested me to send this after doing org-cycle [9.5.1 (release_9.5.1-205-g20ed79 @ /home/jay/Builds/org-mode/lisp/)] In-reply-to: <871r2sfp86.fsf@localhost> References: <1902267.1638611039@localhost> <871r2sfp86.fsf@localhost> Comments: In-reply-to Ihor Radchenko message dated "Sat, 04 Dec 2021 21:56:25 +0800." X-Mailer: MH-E 8.6+git; nmh 1.7.1; GNU Emacs 27.2 MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Date: Sat, 04 Dec 2021 23:57:34 -0800 Message-ID: <3808007.1638691054@localhost> X-Provags-ID: V03:K1:f/ZpbvM+pGaEq0Ab+/s6FcLVfvM35uxNDwvlf6jGMUXMRCQ3ySp 9N9JFyQ+li/yjIEpC5wvmFIsJw7blhL9enF67lVyOW6Icz7g3ZaLKGKMo65yP9Gw3uupdne n8X3LNZBo4+iZzBujudM4EMZt3EUjxsokx03DZtEDDmQ/jmeNbMIBQFzn9azsmuTQvKCn4H XfVDinKYFG9AX6+y5eXRw== X-UI-Out-Filterresults: notjunk:1;V03:K0:N4MfTA4cB6g=:l7sET/o1Fk6LEmOf6GVHom gnV40LOQ/JjRJk65fwBY5iGUkMz16qEJpQe6s2E+HpN0bURKNV36caJwzAcM8TD+I3A3P7lyz g2ftbX/EqFfvSKPcwF2GQpXdF/DdcGDjWl+0wp/HFLGU/7BwnNHPM5xzKctXR3C8+O27kyhYd QZ/xSJUO/cx8ikak+XwXCjpvAjGlwrQAhbHy/wcBv53VMuaCGJZibjpmQbyNiFFTRhFNozuny EejLOxyqWPr8/pgtxL8PEpTQhwRtAhkPKqzUHPL9xxhTsMvJZJcWYRYLpaNd5Fp3Yq37qoqYO U7Rh4rWoROwFh5mtJKCOGZ9D4PmSu0c3FtonKsO9ruv2XBe1PjR1iMJc1ZasC6E+dflSSd9hm yORbmHLY/+8HIIAkVP7Q8Zmwf4todFYLk4/Ka7bBSXQBMAFa9/ly7XE2YnVIzTdRoGMCbBL1B wF/wRfhixEBNAkt2ZEbCaQwr8DdYoqlrGv2mfYbl8BQRFzuzyEGh45Is+HwQGkTYASmbaUV8N MHifd+VQ+bl81mwnlwqcM1Vs2/LiNNYV6tNvThT2jCcjqEtc6fC7SVIz8Vxe3NvLGxVRrBoky vJsj6stTYxj89YJDdZN2nrepxdai5yVULrdVAuphb5IryYx1R4f3sg9ui8M7Vx0/t3oMaZOMr Hn41KnyRcrOTAvEBHyIlIAP1rMCQlBC8KuCg157tkKncFiWO7nhimXz+aF4bijtVMoew= Received-SPF: none client-ip=74.208.4.196; envelope-from=jay@jaydresser.us; helo=mout.perfora.net X-Spam_score_int: -18 X-Spam_score: -1.9 X-Spam_bar: - X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9, RCVD_IN_DNSWL_NONE=-0.0001, RCVD_IN_MSPIKE_H2=-0.001, SPF_HELO_PASS=-0.001, SPF_NONE=0.001 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: , Cc: emacs-orgmode@gnu.org, Jay Dresser 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=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1638691117; 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: content-transfer-encoding:content-transfer-encoding: in-reply-to:in-reply-to:references:references:list-id:list-help: list-unsubscribe:list-subscribe:list-post; bh=a62W04CkVd+dHnaUgFWFEAU0DT2E+b/e40Z6Eei1xtE=; b=q0ugr+L+EstuUM8MV1O50a0/0dMzudogP5iPr8XykBbttyOtgPHyWkBkK+24J+XQM9kEs7 zvquzVnii3rhhuPkQUYHDDtTf5+X4glCFqTy1fZAQ8SSEJI5wR4UMYN8ZJKZGh4QXtYb9N Z7zxtV+ES2/b3m2F59FCoxticE2i9q6A70b5L2RO/bwkZoBPV7mWHDENPgVorH8pNG3hwh RXEtkJJlhOK7oOKcoyGgeM8T6KxgfQ1Iz2nRYAawx7gnYMKVNCo4tUCWI6hiOATkHsaezm wIqR+Ifk2FiRgJHFxcDVtD6kh10wP+YOt2qySgBZOhNvakigdaE6JIYcr0ECPQ== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1638691117; a=rsa-sha256; cv=none; b=NZuHIlaKPgFoICAOAdadain7BbJvVpnuUMPWbNEKOMAxb4uPg6Uzf13xesxaQ64IjfwYaV U/RuxSD9sufdUxOxkUPFG5KbL57F7BF8jJHfF8TZ3I8aohLCw5HywGoBTn5xH9UaLZE0Wb JPDSQMFHZ0k3nzi4GGA+sVh5yUVpzjzP/ZbIa/LCOG8TGpA3Jfizy2MmDsxg4VsVKxeEhk Wci++FwY4dPb46UHMVw4VQoUw6R1upy3gqwblZ+B1x/gzJp5DcmWkb4wGOCKxQcTn2Nu/o cekLY6njOlQ5hvfzhZn8MZtQmPy48q+w9GHubjfVvwsonxTNmRXU3qsyAzc6mw== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=none; dmarc=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: -2.43 Authentication-Results: aspmx1.migadu.com; dkim=none; dmarc=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: AB1532E93A X-Spam-Score: -2.43 X-Migadu-Scanner: scn0.migadu.com X-TUID: cABcE0/0d+a3 Here is Warnings and Backtrace > From: Ihor Radchenko > To: Jay Dresser > Cc: emacs-orgmode@gnu.org > Subject: Re: [BUG] Org requested me to send this after doing org-cycle > [9.5.1 (release_9.5.1-205-g20ed79 @ /home/jay/Builds/org-mode/lisp/)] > Date: Sat, 04 Dec 2021 21:56:25 +0800 >=20 > Jay Dresser writes: > > > > I did org-cycle, via S-TAB, and an error occurred. I don't know why. >=20 > Thanks for reporting! >=20 > Could you also post the warning text next time you encounter it? The > text contains important clues that can help us to understand what went > wrong. >=20 > Best, > Ihor =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Backtrac= e =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D Debugger entered--Lisp error: (error "rx =E2=80=98**=E2=80=99 range error") signal(error ("rx =E2=80=98**=E2=80=99 range error")) error("rx `%s' range error" **) rx--translate-bounded-repetition(** (1 0 "*")) rx--translate-**((1 0 "*")) rx--translate-form((** 1 0 "*")) rx--translate((** 1 0 "*")) mapcar(rx--translate (line-start (** 1 0 "*") " ")) rx--translate-seq((line-start (** 1 0 "*") " ")) rx--translate-form((seq line-start (** 1 0 "*") " ")) rx--translate((seq line-start (** 1 0 "*") " ")) rx-to-string((seq line-start (** 1 0 "*") " ")) (let ((re (rx-to-string (cons 'seq (cons 'line-start (cons (cons ... ...)= '...)))))) (if (re-search-forward re nil t) (line-beginning-position) (poi= nt-max))) (save-excursion (let ((re (rx-to-string (cons 'seq (cons 'line-start (con= s ... ...)))))) (if (re-search-forward re nil t) (line-beginning-position) = (point-max)))) (let* ((begin (point)) (true-level (prog1 (skip-chars-forward "*") (skip-= chars-forward " \11"))) (level (org-reduced-level true-level)) (todo (and o= rg-todo-regexp (let (case-fold-search) (looking-at (concat org-todo-regexp = " "))) (progn (goto-char (match-end 0)) (skip-chars-forward " \11") (match-= string 1)))) (todo-type (and todo (if (member todo org-done-keywords) 'done= 'todo))) (priority (and (looking-at "\\[#.\\][ \11]*") (progn (goto-char (= match-end 0)) (aref (match-string 0) 2)))) (commentedp (and (let ((case-fol= d-search nil)) (looking-at org-element-comment-string)) (goto-char (match-e= nd 0)))) (title-start (prog1 (point) (if (or todo priority commentedp) nil = (skip-chars-backward " \11")))) (tags (if (re-search-forward "[ \11]+\\(:[[= :alnum:]_@#%:]+:\\)[ \11]*$" (line-end-position) 'move) (progn (goto-char (= match-beginning 0)) (org-split-string (match-string 1) ":")))) (title-end (= point)) (raw-value (org-trim (buffer-substring-no-properties title-start ti= tle-end))) (archivedp (member org-element-archive-tag tags)) (footnote-sect= ion-p (and org-footnote-section (string=3D org-footnote-section raw-value))= ) (standard-props (org-element--get-node-properties)) (time-props (org-elem= ent--get-time-properties)) (end (save-excursion (let ((re (rx-to-string ...= ))) (if (re-search-forward re nil t) (line-beginning-position) (point-max))= ))) (contents-begin (save-excursion (forward-line) (skip-chars-forward " \1= 5\11\n" end) (and (/=3D (point) end) (line-beginning-position)))) (contents= -end (and contents-begin (progn (goto-char end) (skip-chars-backward " \15\= 11\n") (line-beginning-position 2)))) (robust-begin (and contents-begin (pr= ogn (goto-char contents-begin) (if (looking-at-p org-element-planning-line-= re) (progn (forward-line))) (if (looking-at org-property-drawer-re) (progn = (goto-char ...))) (max (if (< ... contents-end) (+ 2 contents-begin) 0) (po= int))))) (robust-end (and robust-begin (if (> (- contents-end 2) robust-beg= in) (progn (- contents-end 2)))))) (if robust-end nil (setq robust-begin ni= l)) (let ((headline (list 'headline (nconc (list :raw-value raw-value :begi= n begin :end end :pre-blank (if ... 0 ...) :contents-begin contents-begin := contents-end contents-end :robust-begin robust-begin :robust-end robust-end= :level level :priority priority :tags tags :todo-keyword todo :todo-type t= odo-type :post-blank (if contents-end ... ...) :footnote-section-p footnote= -section-p :archivedp archivedp :commentedp commentedp :post-affiliated beg= in) time-props standard-props)))) (org-element-put-property headline :title= (if raw-secondary-p raw-value (org-element--parse-objects (progn (goto-cha= r title-start) (skip-chars-forward " \11") (point)) (progn (goto-char title= -end) (skip-chars-backward " \11") (point)) nil (org-element-restriction 'h= eadline) headline))))) (save-excursion (let* ((begin (point)) (true-level (prog1 (skip-chars-for= ward "*") (skip-chars-forward " \11"))) (level (org-reduced-level true-leve= l)) (todo (and org-todo-regexp (let (case-fold-search) (looking-at (concat = org-todo-regexp " "))) (progn (goto-char (match-end 0)) (skip-chars-forward= " \11") (match-string 1)))) (todo-type (and todo (if (member todo org-done= -keywords) 'done 'todo))) (priority (and (looking-at "\\[#.\\][ \11]*") (pr= ogn (goto-char (match-end 0)) (aref (match-string 0) 2)))) (commentedp (and= (let ((case-fold-search nil)) (looking-at org-element-comment-string)) (go= to-char (match-end 0)))) (title-start (prog1 (point) (if (or todo priority = commentedp) nil (skip-chars-backward " \11")))) (tags (if (re-search-forwar= d "[ \11]+\\(:[[:alnum:]_@#%:]+:\\)[ \11]*$" (line-end-position) 'move) (pr= ogn (goto-char (match-beginning 0)) (org-split-string (match-string 1) ":")= ))) (title-end (point)) (raw-value (org-trim (buffer-substring-no-propertie= s title-start title-end))) (archivedp (member org-element-archive-tag tags)= ) (footnote-section-p (and org-footnote-section (string=3D org-footnote-sec= tion raw-value))) (standard-props (org-element--get-node-properties)) (time= -props (org-element--get-time-properties)) (end (save-excursion (let ((re .= ..)) (if (re-search-forward re nil t) (line-beginning-position) (point-max)= )))) (contents-begin (save-excursion (forward-line) (skip-chars-forward " \= 15\11\n" end) (and (/=3D (point) end) (line-beginning-position)))) (content= s-end (and contents-begin (progn (goto-char end) (skip-chars-backward " \15= \11\n") (line-beginning-position 2)))) (robust-begin (and contents-begin (p= rogn (goto-char contents-begin) (if (looking-at-p org-element-planning-line= -re) (progn ...)) (if (looking-at org-property-drawer-re) (progn ...)) (max= (if ... ... 0) (point))))) (robust-end (and robust-begin (if (> (- content= s-end 2) robust-begin) (progn (- contents-end 2)))))) (if robust-end nil (s= etq robust-begin nil)) (let ((headline (list 'headline (nconc (list :raw-va= lue raw-value :begin begin :end end :pre-blank ... :contents-begin contents= -begin :contents-end contents-end :robust-begin robust-begin :robust-end ro= bust-end :level level :priority priority :tags tags :todo-keyword todo :tod= o-type todo-type :post-blank ... :footnote-section-p footnote-section-p :ar= chivedp archivedp :commentedp commentedp :post-affiliated begin) time-props= standard-props)))) (org-element-put-property headline :title (if raw-secon= dary-p raw-value (org-element--parse-objects (progn (goto-char title-start)= (skip-chars-forward " \11") (point)) (progn (goto-char title-end) (skip-ch= ars-backward " \11") (point)) nil (org-element-restriction 'headline) headl= ine)))))) org-element-headline-parser(1216624 t) (cond ((eq mode 'item) (org-element-item-parser limit structure raw-secon= dary-p)) ((eq mode 'table-row) (org-element-table-row-parser limit)) ((eq m= ode 'node-property) (org-element-node-property-parser limit)) ((progn (defv= ar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outl= ine-regexp) (defvar org-outline-regexp-bol) (let* ((org-called-with-limited= -levels t) (org-outline-regexp (org-get-limited-outline-regexp)) (outline-r= egexp org-outline-regexp) (org-outline-regexp-bol (concat "^" org-outline-r= egexp))) (org-at-heading-p))) (org-element-headline-parser limit raw-second= ary-p)) ((eq mode 'section) (org-element-section-parser limit)) ((eq mode '= first-section) (org-element-section-parser (or (save-excursion (progn (defv= ar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outl= ine-regexp) (defvar org-outline-regexp-bol) (let* (... ... ... ...) (outlin= e-next-heading)))) limit))) ((looking-at "^[ \11]*#\\(?: \\|$\\)") (org-ele= ment-comment-parser limit)) ((and (eq mode 'planning) (eq 42 (char-after (l= ine-beginning-position 0))) (looking-at org-element-planning-line-re)) (org= -element-planning-parser limit)) ((and (cond ((eq mode 'planning) (eq 42 (c= har-after (line-beginning-position 0)))) ((memq mode '(top-comment property= -drawer)) (save-excursion (beginning-of-line 0) (not (looking-at "[[:blank:= ]]*$")))) (t nil)) (looking-at org-property-drawer-re)) (org-element-proper= ty-drawer-parser limit)) ((not (bolp)) (org-element-paragraph-parser limit = (list (point)))) ((looking-at org-element-clock-line-re) (org-element-clock= -parser limit)) ((looking-at "^\\*+ ") (org-element-inlinetask-parser limit= raw-secondary-p)) (t (let ((affiliated (org-element--collect-affiliated-ke= ywords limit (memq granularity '...)))) (cond ((and (cdr affiliated) (>=3D = (point) limit)) (goto-char (car affiliated)) (org-element-keyword-parser li= mit nil)) ((looking-at org-element--latex-begin-environment) (org-element-l= atex-environment-parser limit affiliated)) ((looking-at org-element-drawer-= re) (org-element-drawer-parser limit affiliated)) ((looking-at "[ \11]*:\\(= \\|$\\)") (org-element-fixed-width-parser limit affiliated)) ((looking-at = "[ \11]*#\\+") (goto-char (match-end 0)) (cond ((looking-at "BEGIN_\\(\\S-+= \\)") (beginning-of-line) (funcall ... limit affiliated)) ((looking-at "CAL= L:") (beginning-of-line) (org-element-babel-call-parser limit affiliated)) = ((looking-at "BEGIN:? ") (beginning-of-line) (org-element-dynamic-block-par= ser limit affiliated)) ((looking-at "\\S-+:") (beginning-of-line) (org-elem= ent-keyword-parser limit affiliated)) (t (beginning-of-line) (org-element-p= aragraph-parser limit affiliated)))) ((looking-at org-footnote-definition-r= e) (org-element-footnote-definition-parser limit affiliated)) ((looking-at = "[ \11]*-\\{5,\\}[ \11]*$") (org-element-horizontal-rule-parser limit affil= iated)) ((looking-at "%%(") (org-element-diary-sexp-parser limit affiliated= )) ((or (looking-at "[ \11]*|") (let (... ... ...) (and ... ... ...))) (org= -element-table-parser limit affiliated)) ((looking-at (org-item-re)) (org-e= lement-plain-list-parser limit affiliated (or structure (org-element--list-= struct limit)))) (t (org-element-paragraph-parser limit affiliated)))))) (setq result (cond ((eq mode 'item) (org-element-item-parser limit struct= ure raw-secondary-p)) ((eq mode 'table-row) (org-element-table-row-parser l= imit)) ((eq mode 'node-property) (org-element-node-property-parser limit)) = ((progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp)= (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* ((org-called= -with-limited-levels t) (org-outline-regexp (org-get-limited-outline-regexp= )) (outline-regexp org-outline-regexp) (org-outline-regexp-bol (concat "^" = org-outline-regexp))) (org-at-heading-p))) (org-element-headline-parser lim= it raw-secondary-p)) ((eq mode 'section) (org-element-section-parser limit)= ) ((eq mode 'first-section) (org-element-section-parser (or (save-excursion= (progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp)= (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* ... ...))) l= imit))) ((looking-at "^[ \11]*#\\(?: \\|$\\)") (org-element-comment-parser = limit)) ((and (eq mode 'planning) (eq 42 (char-after (line-beginning-positi= on 0))) (looking-at org-element-planning-line-re)) (org-element-planning-pa= rser limit)) ((and (cond ((eq mode 'planning) (eq 42 (char-after ...))) ((m= emq mode '...) (save-excursion (beginning-of-line 0) (not ...))) (t nil)) (= looking-at org-property-drawer-re)) (org-element-property-drawer-parser lim= it)) ((not (bolp)) (org-element-paragraph-parser limit (list (point)))) ((l= ooking-at org-element-clock-line-re) (org-element-clock-parser limit)) ((lo= oking-at "^\\*+ ") (org-element-inlinetask-parser limit raw-secondary-p)) (= t (let ((affiliated (org-element--collect-affiliated-keywords limit (memq g= ranularity ...)))) (cond ((and (cdr affiliated) (>=3D ... limit)) (goto-cha= r (car affiliated)) (org-element-keyword-parser limit nil)) ((looking-at or= g-element--latex-begin-environment) (org-element-latex-environment-parser l= imit affiliated)) ((looking-at org-element-drawer-re) (org-element-drawer-p= arser limit affiliated)) ((looking-at "[ \11]*:\\( \\|$\\)") (org-element-f= ixed-width-parser limit affiliated)) ((looking-at "[ \11]*#\\+") (goto-char= (match-end 0)) (cond (... ... ...) (... ... ...) (... ... ...) (... ... ..= .) (t ... ...))) ((looking-at org-footnote-definition-re) (org-element-foot= note-definition-parser limit affiliated)) ((looking-at "[ \11]*-\\{5,\\}[ \= 11]*$") (org-element-horizontal-rule-parser limit affiliated)) ((looking-at= "%%(") (org-element-diary-sexp-parser limit affiliated)) ((or (looking-at = "[ \11]*|") (let ... ...)) (org-element-table-parser limit affiliated)) ((l= ooking-at (org-item-re)) (org-element-plain-list-parser limit affiliated (o= r structure ...))) (t (org-element-paragraph-parser limit affiliated))))))) (let ((case-fold-search t) (raw-secondary-p (and granularity (not (eq gra= nularity 'object)))) result) (setq result (cond ((eq mode 'item) (org-eleme= nt-item-parser limit structure raw-secondary-p)) ((eq mode 'table-row) (org= -element-table-row-parser limit)) ((eq mode 'node-property) (org-element-no= de-property-parser limit)) ((progn (defvar org-called-with-limited-levels) = (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-reg= exp-bol) (let* ((org-called-with-limited-levels t) (org-outline-regexp ...)= (outline-regexp org-outline-regexp) (org-outline-regexp-bol ...)) (org-at-= heading-p))) (org-element-headline-parser limit raw-secondary-p)) ((eq mode= 'section) (org-element-section-parser limit)) ((eq mode 'first-section) (o= rg-element-section-parser (or (save-excursion (progn ... ... ... ... ...)) = limit))) ((looking-at "^[ \11]*#\\(?: \\|$\\)") (org-element-comment-parser= limit)) ((and (eq mode 'planning) (eq 42 (char-after (line-beginning-posit= ion 0))) (looking-at org-element-planning-line-re)) (org-element-planning-p= arser limit)) ((and (cond ((eq mode ...) (eq 42 ...)) ((memq mode ...) (sav= e-excursion ... ...)) (t nil)) (looking-at org-property-drawer-re)) (org-el= ement-property-drawer-parser limit)) ((not (bolp)) (org-element-paragraph-p= arser limit (list (point)))) ((looking-at org-element-clock-line-re) (org-e= lement-clock-parser limit)) ((looking-at "^\\*+ ") (org-element-inlinetask-= parser limit raw-secondary-p)) (t (let ((affiliated (org-element--collect-a= ffiliated-keywords limit ...))) (cond ((and ... ...) (goto-char ...) (org-e= lement-keyword-parser limit nil)) ((looking-at org-element--latex-begin-env= ironment) (org-element-latex-environment-parser limit affiliated)) ((lookin= g-at org-element-drawer-re) (org-element-drawer-parser limit affiliated)) (= (looking-at "[ \11]*:\\( \\|$\\)") (org-element-fixed-width-parser limit af= filiated)) ((looking-at "[ \11]*#\\+") (goto-char ...) (cond ... ... ... ..= . ...)) ((looking-at org-footnote-definition-re) (org-element-footnote-defi= nition-parser limit affiliated)) ((looking-at "[ \11]*-\\{5,\\}[ \11]*$") (= org-element-horizontal-rule-parser limit affiliated)) ((looking-at "%%(") (= org-element-diary-sexp-parser limit affiliated)) ((or ... ...) (org-element= -table-parser limit affiliated)) ((looking-at ...) (org-element-plain-list-= parser limit affiliated ...)) (t (org-element-paragraph-parser limit affili= ated))))))) (if result (progn (org-element-put-property result :mode mode) = (org-element-put-property result :granularity granularity))) (if (and (not = (buffer-narrowed-p)) (org-element--cache-active-p) (not org-element--cache-= sync-requests) add-to-cache) (progn (if (not old-element) (setq result (org= -element--cache-put result)) (org-element-set-element old-element result) (= setq result old-element)))) result) (save-excursion (let ((case-fold-search t) (raw-secondary-p (and granular= ity (not (eq granularity 'object)))) result) (setq result (cond ((eq mode '= item) (org-element-item-parser limit structure raw-secondary-p)) ((eq mode = 'table-row) (org-element-table-row-parser limit)) ((eq mode 'node-property)= (org-element-node-property-parser limit)) ((progn (defvar org-called-with-= limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar= org-outline-regexp-bol) (let* (... ... ... ...) (org-at-heading-p))) (org-= element-headline-parser limit raw-secondary-p)) ((eq mode 'section) (org-el= ement-section-parser limit)) ((eq mode 'first-section) (org-element-section= -parser (or (save-excursion ...) limit))) ((looking-at "^[ \11]*#\\(?: \\|$= \\)") (org-element-comment-parser limit)) ((and (eq mode 'planning) (eq 42 = (char-after ...)) (looking-at org-element-planning-line-re)) (org-element-p= lanning-parser limit)) ((and (cond (... ...) (... ...) (t nil)) (looking-at= org-property-drawer-re)) (org-element-property-drawer-parser limit)) ((not= (bolp)) (org-element-paragraph-parser limit (list (point)))) ((looking-at = org-element-clock-line-re) (org-element-clock-parser limit)) ((looking-at "= ^\\*+ ") (org-element-inlinetask-parser limit raw-secondary-p)) (t (let ((a= ffiliated ...)) (cond (... ... ...) (... ...) (... ...) (... ...) (... ... = ...) (... ...) (... ...) (... ...) (... ...) (... ...) (t ...)))))) (if res= ult (progn (org-element-put-property result :mode mode) (org-element-put-pr= operty result :granularity granularity))) (if (and (not (buffer-narrowed-p)= ) (org-element--cache-active-p) (not org-element--cache-sync-requests) add-= to-cache) (progn (if (not old-element) (setq result (org-element--cache-put= result)) (org-element-set-element old-element result) (setq result old-ele= ment)))) result)) (if element element (save-excursion (let ((case-fold-search t) (raw-secon= dary-p (and granularity (not (eq granularity ...)))) result) (setq result (= cond ((eq mode 'item) (org-element-item-parser limit structure raw-secondar= y-p)) ((eq mode 'table-row) (org-element-table-row-parser limit)) ((eq mode= 'node-property) (org-element-node-property-parser limit)) ((progn (defvar = org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline= -regexp) (defvar org-outline-regexp-bol) (let* ... ...)) (org-element-headl= ine-parser limit raw-secondary-p)) ((eq mode 'section) (org-element-section= -parser limit)) ((eq mode 'first-section) (org-element-section-parser (or .= .. limit))) ((looking-at "^[ \11]*#\\(?: \\|$\\)") (org-element-comment-par= ser limit)) ((and (eq mode ...) (eq 42 ...) (looking-at org-element-plannin= g-line-re)) (org-element-planning-parser limit)) ((and (cond ... ... ...) (= looking-at org-property-drawer-re)) (org-element-property-drawer-parser lim= it)) ((not (bolp)) (org-element-paragraph-parser limit (list ...))) ((looki= ng-at org-element-clock-line-re) (org-element-clock-parser limit)) ((lookin= g-at "^\\*+ ") (org-element-inlinetask-parser limit raw-secondary-p)) (t (l= et (...) (cond ... ... ... ... ... ... ... ... ... ... ...))))) (if result = (progn (org-element-put-property result :mode mode) (org-element-put-proper= ty result :granularity granularity))) (if (and (not (buffer-narrowed-p)) (o= rg-element--cache-active-p) (not org-element--cache-sync-requests) add-to-c= ache) (progn (if (not old-element) (setq result (org-element--cache-put res= ult)) (org-element-set-element old-element result) (setq result old-element= )))) result))) (let* ((element (and (not (buffer-narrowed-p)) (org-element--cache-active= -p) (not org-element--cache-sync-requests) (org-element--cache-find (point)= t))) (element (progn (while (and element (not (and ... ...))) (setq elemen= t (org-element-property :parent element))) element)) (old-element element) = (element (if (let* ((val (org-element-property :granularity element))) (con= d ((null val) t) ((eq val ...) t) ((eq val ...) (not ...)) ((eq val ...) (n= ot ...)) ((eq val ...) (eq granularity ...)) (t nil))) (progn element)))) (= if element element (save-excursion (let ((case-fold-search t) (raw-secondar= y-p (and granularity (not ...))) result) (setq result (cond ((eq mode ...) = (org-element-item-parser limit structure raw-secondary-p)) ((eq mode ...) (= org-element-table-row-parser limit)) ((eq mode ...) (org-element-node-prope= rty-parser limit)) ((progn ... ... ... ... ...) (org-element-headline-parse= r limit raw-secondary-p)) ((eq mode ...) (org-element-section-parser limit)= ) ((eq mode ...) (org-element-section-parser ...)) ((looking-at "^[ \11]*#\= \(?: \\|$\\)") (org-element-comment-parser limit)) ((and ... ... ...) (org-= element-planning-parser limit)) ((and ... ...) (org-element-property-drawer= -parser limit)) ((not ...) (org-element-paragraph-parser limit ...)) ((look= ing-at org-element-clock-line-re) (org-element-clock-parser limit)) ((looki= ng-at "^\\*+ ") (org-element-inlinetask-parser limit raw-secondary-p)) (t (= let ... ...)))) (if result (progn (org-element-put-property result :mode mo= de) (org-element-put-property result :granularity granularity))) (if (and (= not (buffer-narrowed-p)) (org-element--cache-active-p) (not org-element--ca= che-sync-requests) add-to-cache) (progn (if (not old-element) (setq result = ...) (org-element-set-element old-element result) (setq result old-element)= ))) result)))) org-element--current-element(1216624 element nil nil) (setq element (org-element--current-element end 'element mode (org-elemen= t-property :structure parent))) (if (save-excursion (org-skip-whitespace) (eobp)) nil (setq element (org-= element--current-element end 'element mode (org-element-property :structure= parent)))) (if element nil (if (save-excursion (org-skip-whitespace) (eobp)) nil (se= tq element (org-element--current-element end 'element mode (org-element-pro= perty :structure parent)))) (if element (setq element (or (org-element--cac= he-put element) element)) (throw 'exit parent)) (org-element-put-property e= lement :parent parent)) (while t (if (org-element--cache-interrupt-p time-limit) (progn (throw 'o= rg-element--cache-interrupt nil))) (if (and inhibit-quit org-element--cache= -interrupt-C-g quit-flag) (progn (if quit-flag (progn (setq org-element--ca= che-interrupt-C-g-count (1+ org-element--cache-interrupt-C-g-count)) (setq = quit-flag nil))) (if (>=3D org-element--cache-interrupt-C-g-count org-eleme= nt--cache-interrupt-C-g-max-count) (progn (setq quit-flag t) (setq org-elem= ent--cache-interrupt-C-g-count 0) (org-element-cache-reset) (error "org-ele= ment: Parsing aborted by user. Cache has b..."))) (message (substitute-com= mand-keys "`org-element--parse-buffer': Suppressed `\\[keyboar...") (- org-= element--cache-interrupt-C-g-max-count org-element--cache-interrupt-C-g-cou= nt)))) (if element nil (if (save-excursion (org-skip-whitespace) (eobp)) ni= l (setq element (org-element--current-element end 'element mode (org-elemen= t-property :structure parent)))) (if element (setq element (or (org-element= --cache-put element) element)) (throw 'exit parent)) (org-element-put-prope= rty element :parent parent)) (let ((elem-end (org-element-property :end ele= ment)) (type (org-element-type element))) (cond ((and (<=3D elem-end pos) (= /=3D (point-max) elem-end)) (goto-char elem-end) (if (eq type 'headline) (p= rogn (let (...) (unwind-protect ... ...)))) (setq mode (org-element--next-m= ode mode type nil))) ((not (memq type org-element-greater-elements)) (throw= 'exit (if syncp parent element))) ((let ((cbeg (org-element-property :cont= ents-begin element)) (cend (org-element-property :contents-end element))) (= if (and cbeg cend (or ... ...) (or ... ...)) (progn (goto-char ...) (setq m= ode ... next nil parent element end ...))))) (t (throw 'exit (if syncp pare= nt element))))) (setq element nil)) (let ((end (or (org-element-property :end element) (point-max))) (parent = (org-element-property :parent element))) (while t (if (org-element--cache-i= nterrupt-p time-limit) (progn (throw 'org-element--cache-interrupt nil))) (= if (and inhibit-quit org-element--cache-interrupt-C-g quit-flag) (progn (if= quit-flag (progn (setq org-element--cache-interrupt-C-g-count (1+ org-elem= ent--cache-interrupt-C-g-count)) (setq quit-flag nil))) (if (>=3D org-eleme= nt--cache-interrupt-C-g-count org-element--cache-interrupt-C-g-max-count) (= progn (setq quit-flag t) (setq org-element--cache-interrupt-C-g-count 0) (o= rg-element-cache-reset) (error "org-element: Parsing aborted by user. Cach= e has b..."))) (message (substitute-command-keys "`org-element--parse-buffe= r': Suppressed `\\[keyboar...") (- org-element--cache-interrupt-C-g-max-cou= nt org-element--cache-interrupt-C-g-count)))) (if element nil (if (save-exc= ursion (org-skip-whitespace) (eobp)) nil (setq element (org-element--curren= t-element end 'element mode (org-element-property :structure parent)))) (if= element (setq element (or (org-element--cache-put element) element)) (thro= w 'exit parent)) (org-element-put-property element :parent parent)) (let ((= elem-end (org-element-property :end element)) (type (org-element-type eleme= nt))) (cond ((and (<=3D elem-end pos) (/=3D (point-max) elem-end)) (goto-ch= ar elem-end) (if (eq type 'headline) (progn (let ... ...))) (setq mode (org= -element--next-mode mode type nil))) ((not (memq type org-element-greater-e= lements)) (throw 'exit (if syncp parent element))) ((let ((cbeg ...) (cend = ...)) (if (and cbeg cend ... ...) (progn ... ...)))) (t (throw 'exit (if sy= ncp parent element))))) (setq element nil))) (let* ((cached (and (org-element--cache-active-p) (org-element--cache-fin= d pos nil))) (mode (org-element-property :mode cached)) element next) (cond= ((and (not cached) (org-element--cache-active-p)) (setq element (org-eleme= nt-org-data-parser)) (if (org-element-property :begin element) nil (let* ((= format-string (format "Error parsing org-data. Got %S\nPlease report to Or.= .." element)) (format-string (if ... format-string ...))) (if (and (boundp = ...) org-batch-test) (error "%s" (concat "org-element--cache: " format-stri= ng)) (display-warning 'org-element-cache (concat "org-element--cache: " for= mat-string))))) (if (or org-element--cache-diagnostics (eq org-element--cac= he-self-verify 'backtrace)) (progn (let* ((format-string ...) (format-strin= g ...)) (if org-element--cache-diagnostics (display-warning ... format-stri= ng) (if org-element--cache-diagnostics-ring nil ...) (ring-insert org-eleme= nt--cache-diagnostics-ring format-string))))) (org-element--cache-put eleme= nt) (goto-char (org-element-property :contents-begin element)) (setq mode '= org-data)) ((not cached) (if (progn (defvar org-called-with-limited-levels)= (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-re= gexp-bol) (let* ((org-called-with-limited-levels t) (org-outline-regexp ...= ) (outline-regexp org-outline-regexp) (org-outline-regexp-bol ...)) (outlin= e-previous-heading))) (progn (setq element (org-element-headline-parser nil= 'fast)) (setq mode 'planning) (forward-line)) (setq mode 'top-comment)) (o= rg-skip-whitespace) (beginning-of-line)) (t (let ((up cached) (pos (if (=3D= ... pos) (1- pos) pos))) (while (and up (<=3D (org-element-property :end u= p) pos)) (goto-char (org-element-property :end up)) (setq element up mode (= org-element--next-mode (org-element-property :mode element) (org-element-ty= pe element) nil) up (org-element-property :parent up) next (point))) (if up= (progn (setq element up)))))) (let ((end (or (org-element-property :end el= ement) (point-max))) (parent (org-element-property :parent element))) (whil= e t (if (org-element--cache-interrupt-p time-limit) (progn (throw 'org-elem= ent--cache-interrupt nil))) (if (and inhibit-quit org-element--cache-interr= upt-C-g quit-flag) (progn (if quit-flag (progn (setq org-element--cache-int= errupt-C-g-count ...) (setq quit-flag nil))) (if (>=3D org-element--cache-i= nterrupt-C-g-count org-element--cache-interrupt-C-g-max-count) (progn (setq= quit-flag t) (setq org-element--cache-interrupt-C-g-count 0) (org-element-= cache-reset) (error "org-element: Parsing aborted by user. Cache has b..."= ))) (message (substitute-command-keys "`org-element--parse-buffer': Suppres= sed `\\[keyboar...") (- org-element--cache-interrupt-C-g-max-count org-elem= ent--cache-interrupt-C-g-count)))) (if element nil (if (save-excursion (org= -skip-whitespace) (eobp)) nil (setq element (org-element--current-element e= nd 'element mode (org-element-property :structure parent)))) (if element (s= etq element (or (org-element--cache-put element) element)) (throw 'exit par= ent)) (org-element-put-property element :parent parent)) (let ((elem-end (o= rg-element-property :end element)) (type (org-element-type element))) (cond= ((and (<=3D elem-end pos) (/=3D ... elem-end)) (goto-char elem-end) (if (e= q type ...) (progn ...)) (setq mode (org-element--next-mode mode type nil))= ) ((not (memq type org-element-greater-elements)) (throw 'exit (if syncp pa= rent element))) ((let (... ...) (if ... ...))) (t (throw 'exit (if syncp pa= rent element))))) (setq element nil)))) (save-restriction (widen) (goto-char pos) (save-excursion (end-of-line) (= skip-chars-backward " \15\11\n") (if (bobp) (progn (throw 'exit nil)))) (le= t* ((cached (and (org-element--cache-active-p) (org-element--cache-find pos= nil))) (mode (org-element-property :mode cached)) element next) (cond ((an= d (not cached) (org-element--cache-active-p)) (setq element (org-element-or= g-data-parser)) (if (org-element-property :begin element) nil (let* ((forma= t-string ...) (format-string ...)) (if (and ... org-batch-test) (error "%s"= ...) (display-warning ... ...)))) (if (or org-element--cache-diagnostics (= eq org-element--cache-self-verify 'backtrace)) (progn (let* (... ...) (if o= rg-element--cache-diagnostics ... ... ...)))) (org-element--cache-put eleme= nt) (goto-char (org-element-property :contents-begin element)) (setq mode '= org-data)) ((not cached) (if (progn (defvar org-called-with-limited-levels)= (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-re= gexp-bol) (let* (... ... ... ...) (outline-previous-heading))) (progn (setq= element (org-element-headline-parser nil ...)) (setq mode 'planning) (forw= ard-line)) (setq mode 'top-comment)) (org-skip-whitespace) (beginning-of-li= ne)) (t (let ((up cached) (pos (if ... ... pos))) (while (and up (<=3D ... = pos)) (goto-char (org-element-property :end up)) (setq element up mode (org= -element--next-mode ... ... nil) up (org-element-property :parent up) next = (point))) (if up (progn (setq element up)))))) (let ((end (or (org-element-= property :end element) (point-max))) (parent (org-element-property :parent = element))) (while t (if (org-element--cache-interrupt-p time-limit) (progn = (throw 'org-element--cache-interrupt nil))) (if (and inhibit-quit org-eleme= nt--cache-interrupt-C-g quit-flag) (progn (if quit-flag (progn ... ...)) (i= f (>=3D org-element--cache-interrupt-C-g-count org-element--cache-interrupt= -C-g-max-count) (progn ... ... ... ...)) (message (substitute-command-keys = "`org-element--parse-buffer': Suppressed `\\[keyboar...") (- org-element--c= ache-interrupt-C-g-max-count org-element--cache-interrupt-C-g-count)))) (if= element nil (if (save-excursion (org-skip-whitespace) (eobp)) nil (setq el= ement (org-element--current-element end ... mode ...))) (if element (setq e= lement (or ... element)) (throw 'exit parent)) (org-element-put-property el= ement :parent parent)) (let ((elem-end (org-element-property :end element))= (type (org-element-type element))) (cond ((and ... ...) (goto-char elem-en= d) (if ... ...) (setq mode ...)) ((not ...) (throw ... ...)) ((let ... ...)= ) (t (throw ... ...)))) (setq element nil))))) (save-excursion (save-restriction (widen) (goto-char pos) (save-excursion= (end-of-line) (skip-chars-backward " \15\11\n") (if (bobp) (progn (throw '= exit nil)))) (let* ((cached (and (org-element--cache-active-p) (org-element= --cache-find pos nil))) (mode (org-element-property :mode cached)) element = next) (cond ((and (not cached) (org-element--cache-active-p)) (setq element= (org-element-org-data-parser)) (if (org-element-property :begin element) n= il (let* (... ...) (if ... ... ...))) (if (or org-element--cache-diagnostic= s (eq org-element--cache-self-verify ...)) (progn (let* ... ...))) (org-ele= ment--cache-put element) (goto-char (org-element-property :contents-begin e= lement)) (setq mode 'org-data)) ((not cached) (if (progn (defvar org-called= -with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (= defvar org-outline-regexp-bol) (let* ... ...)) (progn (setq element ...) (s= etq mode ...) (forward-line)) (setq mode 'top-comment)) (org-skip-whitespac= e) (beginning-of-line)) (t (let ((up cached) (pos ...)) (while (and up ...)= (goto-char ...) (setq element up mode ... up ... next ...)) (if up (progn = ...))))) (let ((end (or (org-element-property :end element) (point-max))) (= parent (org-element-property :parent element))) (while t (if (org-element--= cache-interrupt-p time-limit) (progn (throw ... nil))) (if (and inhibit-qui= t org-element--cache-interrupt-C-g quit-flag) (progn (if quit-flag ...) (if= ... ...) (message ... ...))) (if element nil (if (save-excursion ... ...) = nil (setq element ...)) (if element (setq element ...) (throw ... parent)) = (org-element-put-property element :parent parent)) (let ((elem-end ...) (ty= pe ...)) (cond (... ... ... ...) (... ...) (...) (t ...))) (setq element ni= l)))))) (progn (save-excursion (save-restriction (widen) (goto-char pos) (save-ex= cursion (end-of-line) (skip-chars-backward " \15\11\n") (if (bobp) (progn (= throw 'exit nil)))) (let* ((cached (and (org-element--cache-active-p) (org-= element--cache-find pos nil))) (mode (org-element-property :mode cached)) e= lement next) (cond ((and (not cached) (org-element--cache-active-p)) (setq = element (org-element-org-data-parser)) (if (org-element-property :begin ele= ment) nil (let* ... ...)) (if (or org-element--cache-diagnostics ...) (prog= n ...)) (org-element--cache-put element) (goto-char (org-element-property := contents-begin element)) (setq mode 'org-data)) ((not cached) (if (progn ..= . ... ... ... ...) (progn ... ... ...) (setq mode ...)) (org-skip-whitespac= e) (beginning-of-line)) (t (let (... ...) (while ... ... ...) (if up ...)))= ) (let ((end (or ... ...)) (parent (org-element-property :parent element)))= (while t (if (org-element--cache-interrupt-p time-limit) (progn ...)) (if = (and inhibit-quit org-element--cache-interrupt-C-g quit-flag) (progn ... ..= . ...)) (if element nil (if ... nil ...) (if element ... ...) (org-element-= put-property element :parent parent)) (let (... ...) (cond ... ... ... ...)= ) (setq element nil))))))) (unwind-protect (progn (save-excursion (save-restriction (widen) (goto-ch= ar pos) (save-excursion (end-of-line) (skip-chars-backward " \15\11\n") (if= (bobp) (progn (throw ... nil)))) (let* ((cached (and ... ...)) (mode (org-= element-property :mode cached)) element next) (cond ((and ... ...) (setq el= ement ...) (if ... nil ...) (if ... ...) (org-element--cache-put element) (= goto-char ...) (setq mode ...)) ((not cached) (if ... ... ...) (org-skip-wh= itespace) (beginning-of-line)) (t (let ... ... ...))) (let ((end ...) (pare= nt ...)) (while t (if ... ...) (if ... ...) (if element nil ... ... ...) (l= et ... ...) (setq element nil))))))) (set-match-data save-match-data-intern= al 'evaporate)) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (sa= ve-excursion (save-restriction (widen) (goto-char pos) (save-excursion (end= -of-line) (skip-chars-backward " \15\11\n") (if (bobp) (progn ...))) (let* = ((cached ...) (mode ...) element next) (cond (... ... ... ... ... ... ...) = (... ... ... ...) (t ...)) (let (... ...) (while t ... ... ... ... ...)))))= ) (set-match-data save-match-data-internal 'evaporate))) (catch 'exit (let ((save-match-data-internal (match-data))) (unwind-prote= ct (progn (save-excursion (save-restriction (widen) (goto-char pos) (save-e= xcursion (end-of-line) (skip-chars-backward " \15\11\n") (if ... ...)) (let= * (... ... element next) (cond ... ... ...) (let ... ...))))) (set-match-da= ta save-match-data-internal 'evaporate)))) org-element--parse-to(935017) (condition-case err (org-element--parse-to pom) (error (let* ((format-str= ing (format "Cache corruption detected in %s. Resetting.\n The e..." (buffe= r-name (current-buffer)) err (if (and ... ...) (progn ...)))) (format-strin= g (if (or (not org-element--cache-diagnostics-ring) (not ...)) format-strin= g (prog1 (concat ... format-string "\nBacktrace:\n " ...) (setq org-elemen= t--cache-diagnostics-ring nil))))) (if (and (boundp 'org-batch-test) org-ba= tch-test) (error "%s" (concat "org-element--cache: " format-string)) (displ= ay-warning 'org-element-cache (concat "org-element--cache: " format-string)= ))) (org-element-cache-reset) (org-element--parse-to pom))) (if cached-only (and (org-element--cache-active-p) (or (not org-element--= cache-sync-requests) (org-element--cache-key-less-p pom (aref (car org-elem= ent--cache-sync-requests) 0))) (org-element--cache-find pom)) (condition-ca= se err (org-element--parse-to pom) (error (let* ((format-string (format "Ca= che corruption detected in %s. Resetting.\n The e..." (buffer-name ...) err= (if ... ...))) (format-string (if (or ... ...) format-string (prog1 ... ..= .)))) (if (and (boundp 'org-batch-test) org-batch-test) (error "%s" (concat= "org-element--cache: " format-string)) (display-warning 'org-element-cache= (concat "org-element--cache: " format-string)))) (org-element-cache-reset)= (org-element--parse-to pom)))) (setq element (if cached-only (and (org-element--cache-active-p) (or (not= org-element--cache-sync-requests) (org-element--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-stri= ng (format "Cache corruption detected in %s. Resetting.\n The e..." ... err= ...)) (format-string (if ... format-string ...))) (if (and (boundp ...) or= g-batch-test) (error "%s" (concat "org-element--cache: " format-string)) (d= isplay-warning 'org-element-cache (concat "org-element--cache: " format-str= ing)))) (org-element-cache-reset) (org-element--parse-to 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" ...) (display-warning ... ...))) (org-element-ca= che-reset) (org-element--parse-to pom))))) (if (and (org-element--cache-act= ive-p) element (org-element--cache-verify-element element)) (progn (setq el= ement (org-element--parse-to pom)))) (if (eq 'org-data (org-element-type el= ement)) nil (if (and cached-only (not (and element (or (=3D pom ...) (and .= .. ... ...) (and ... ... ...) (and ... ... ...))))) nil (if (not (eq (org-e= lement-type element) 'section)) element (org-element-at-point (1+ pom) cach= ed-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 ... ...)))))))) org-cycle(nil) funcall-interactively(org-cycle nil) call-interactively(org-cycle nil nil) command-execute(org-cycle) =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Warnings = =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Warning (org-element-cache): org-element--cache: Cache corruption detected = in archive.org. Resetting. The error was: (error "rx =E2=80=98**=E2=80=99 range error") Backtrace: " backtrace-to-string(nil) (progn (backtrace-to-string (backtrace-get-frames 'backtrace))) (if (and (fboundp 'backtrace-get-frames) (fboundp 'backtrace-to-string)) = (progn (backtrace-to-string (backtrace-get-frames 'backtrace)))) (format \"Cache corruption detected in %s. Resetting.\\n The e...\" (buff= er-name (current-buffer)) err (if (and (fboundp 'backtrace-get-frames) (fbo= undp 'backtrace-to-string)) (progn (backtrace-to-string (backtrace-get-fram= es 'backtrace))))) (let* ((format-string (format \"Cache corruption detected in %s. Resettin= g.\\n The e...\" (buffer-name (current-buffer)) err (if (and (fboundp 'back= trace-get-frames) (fboundp 'backtrace-to-string)) (progn (backtrace-to-stri= ng (backtrace-get-frames ...)))))) (format-string (if (or (not org-element-= -cache-diagnostics-ring) (not (eq 'backtrace org-element--cache-self-verify= ))) format-string (prog1 (concat (format \"Warning(%s): \" (buffer-name ...= )) format-string \"\\nBacktrace:\\n \" (mapconcat #'identity (ring-element= s org-element--cache-diagnostics-ring) \"\\n \")) (setq org-element--cache= -diagnostics-ring nil))))) (if (and (boundp 'org-batch-test) org-batch-test= ) (error \"%s\" (concat \"org-element--cache: \" format-string)) (display-w= arning 'org-element-cache (concat \"org-element--cache: \" format-string)))) (condition-case err (org-element--parse-to pom) (error (let* ((format-str= ing (format \"Cache corruption detected in %s. Resetting.\\n The e...\" (bu= ffer-name (current-buffer)) err (if (and ... ...) (progn ...)))) (format-st= ring (if (or (not org-element--cache-diagnostics-ring) (not ...)) format-st= ring (prog1 (concat ... format-string \"\\nBacktrace:\\n \" ...) (setq org= -element--cache-diagnostics-ring nil))))) (if (and (boundp 'org-batch-test)= org-batch-test) (error \"%s\" (concat \"org-element--cache: \" format-stri= ng)) (display-warning 'org-element-cache (concat \"org-element--cache: \" f= ormat-string)))) (org-element-cache-reset) (org-element--parse-to pom))) (if cached-only (and (org-element--cache-active-p) (or (not org-element--= cache-sync-requests) (org-element--cache-key-less-p pom (aref (car org-elem= ent--cache-sync-requests) 0))) (org-element--cache-find pom)) (condition-ca= se err (org-element--parse-to pom) (error (let* ((format-string (format \"C= ache corruption detected in %s. Resetting.\\n The e...\" (buffer-name ...) = err (if ... ...))) (format-string (if (or ... ...) format-string (prog1 ...= ...)))) (if (and (boundp 'org-batch-test) org-batch-test) (error \"%s\" (c= oncat \"org-element--cache: \" format-string)) (display-warning 'org-elemen= t-cache (concat \"org-element--cache: \" format-string)))) (org-element-cac= he-reset) (org-element--parse-to pom)))) (setq element (if cached-only (and (org-element--cache-active-p) (or (not= org-element--cache-sync-requests) (org-element--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-stri= ng (format \"Cache corruption detected in %s. Resetting.\\n The e...\" ... = err ...)) (format-string (if ... format-string ...))) (if (and (boundp ...)= org-batch-test) (error \"%s\" (concat \"org-element--cache: \" format-stri= ng)) (display-warning 'org-element-cache (concat \"org-element--cache: \" f= ormat-string)))) (org-element-cache-reset) (org-element--parse-to 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\" ...) (display-warning ... ...))) (org-element-= cache-reset) (org-element--parse-to pom))))) (if (and (org-element--cache-a= ctive-p) element (org-element--cache-verify-element element)) (progn (setq = element (org-element--parse-to pom)))) (if (eq 'org-data (org-element-type = element)) nil (if (and cached-only (not (and element (or (=3D pom ...) (and= ... ... ...) (and ... ... ...) (and ... ... ...))))) nil (if (not (eq (org= -element-type element) 'section)) element (org-element-at-point (1+ pom) ca= ched-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-elemen= t-property :type element))) (message (substitute-command-keys \"\\\\Use `\\\\[org-edit-special]' to edit t...\")) (org-table-justify-fie= ld-maybe) (call-interactively #'org-table-next-field))) ((run-hook-with-arg= s-until-success 'org-tab-after-check-for-table-hook)) ((and (or (and org-cy= cle-include-plain-lists (let (...) (and item ...))) (org-match-line org-out= line-regexp)) (or (bolp) (not (eq org-cycle-emulate-tab 'exc-hl-bol)))) (or= g-cycle-internal-local)) (buffer-read-only (org-back-to-heading)) ((run-hoo= k-with-args-until-success 'org-tab-after-check-for-cycling-hook)) ((run-hoo= k-with-args-until-success 'org-tab-before-tab-emulation-hook)) ((and (eq or= g-cycle-emulate-tab 'exc-hl-bol) (or (not (bolp)) (not (looking-at org-outl= ine-regexp)))) (call-interactively (global-key-binding (kbd \"TAB\")))) ((o= r (eq org-cycle-emulate-tab t) (and (memq org-cycle-emulate-tab '(white whi= testart)) (save-excursion (beginning-of-line 1) (looking-at \"[ \\11]*\")) = (or (and (eq org-cycle-emulate-tab ...) (=3D ... ...)) (and (eq org-cycle-e= mulate-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 propert= ies\")) ((equal arg '(64)) (org-show-all) (org-unlogged-message \"Entire bu= ffer visible, including drawers\")) ((equal arg '(4)) (org-cycle-internal-g= lobal)) ((integerp arg) (save-excursion (org-back-to-heading) (outline-up-h= eading (if (< arg 0) (- arg) (- (funcall outline-level) arg))) (org-show-su= btree))) ((and org-cycle-global-at-bob (bobp) (not (looking-at org-outline-= regexp))) (let ((org-cycle-hook (remq 'org-optimize-window-after-visibility= -change org-cycle-hook))) (org-cycle-internal-global))) ((org-try-cdlatex-t= ab)) ((and (featurep 'org-inlinetask) (org-inlinetask-at-task-p) (or (bolp)= (not (eq org-cycle-emulate-tab 'exc-hl-bol)))) (org-inlinetask-toggle-visi= bility)) (t (let ((pos (point)) (element (org-element-at-point))) (cond ((o= rg-hide-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-tab= le-justify-field-maybe) (call-interactively #'org-table-next-field))) ((run= -hook-with-args-until-success 'org-tab-after-check-for-table-hook)) ((and (= or (and org-cycle-include-plain-lists ...) (org-match-line org-outline-rege= xp)) (or (bolp) (not ...))) (org-cycle-internal-local)) (buffer-read-only (= org-back-to-heading)) ((run-hook-with-args-until-success 'org-tab-after-che= ck-for-cycling-hook)) ((run-hook-with-args-until-success 'org-tab-before-ta= b-emulation-hook)) ((and (eq org-cycle-emulate-tab 'exc-hl-bol) (or (not ..= .) (not ...))) (call-interactively (global-key-binding (kbd \"TAB\")))) ((o= r (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 'du= mmy) (org-set-startup-visibility) (org-unlogged-message \"Startup visibilit= y, plus VISIBILITY properties\")) ((equal arg '(64)) (org-show-all) (org-un= logged-message \"Entire buffer visible, including drawers\")) ((equal arg '= (4)) (org-cycle-internal-global)) ((integerp arg) (save-excursion (org-back= -to-heading) (outline-up-heading (if (< arg 0) (- arg) (- (funcall outline-= level) arg))) (org-show-subtree))) ((and org-cycle-global-at-bob (bobp) (no= t (looking-at org-outline-regexp))) (let ((org-cycle-hook (remq 'org-optimi= ze-window-after-visibility-change org-cycle-hook))) (org-cycle-internal-glo= bal))) ((org-try-cdlatex-tab)) ((and (featurep 'org-inlinetask) (org-inline= task-at-task-p) (or (bolp) (not (eq org-cycle-emulate-tab 'exc-hl-bol)))) (= org-inlinetask-toggle-visibility)) (t (let ((pos (point)) (element (org-ele= ment-at-point))) (cond ((org-hide-block-toggle nil t element)) ((org-hide-d= rawer-toggle nil t element)) ((and (org-match-line \"[ \\11]*[|+]\") (org-e= lement-lineage element ... t)) (if (and ... ...) (message ...) (org-table-j= ustify-field-maybe) (call-interactively ...))) ((run-hook-with-args-until-s= uccess 'org-tab-after-check-for-table-hook)) ((and (or ... ...) (or ... ...= )) (org-cycle-internal-local)) (buffer-read-only (org-back-to-heading)) ((r= un-hook-with-args-until-success 'org-tab-after-check-for-cycling-hook)) ((r= un-hook-with-args-until-success 'org-tab-before-tab-emulation-hook)) ((and = (eq org-cycle-emulate-tab ...) (or ... ...)) (call-interactively (global-ke= y-binding ...))) ((or (eq org-cycle-emulate-tab t) (and ... ... ...)) (call= -interactively (global-key-binding ...))) (t (save-excursion (org-back-to-h= eading) (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= (format \"\\\\{1,%d\\\\}\" nstars) \"+\")))) (cond ((equal arg '(16)) (set= q last-command 'dummy) (org-set-startup-visibility) (org-unlogged-message \= "Startup visibility, plus VISIBILITY 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-e= xcursion (org-back-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-cycle-internal-global))) ((org-try-cdlatex-tab)) ((and (featu= rep 'org-inlinetask) (org-inlinetask-at-task-p) (or (bolp) (not (eq org-cyc= le-emulate-tab ...)))) (org-inlinetask-toggle-visibility)) (t (let ((pos (p= oint)) (element (org-element-at-point))) (cond ((org-hide-block-toggle nil = t element)) ((org-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 ...)) ((a= nd ... ...) (call-interactively ...)) ((or ... ...) (call-interactively ...= )) (t (save-excursion ... ...)))))))) org-cycle(nil) funcall-interactively(org-cycle nil) call-interactively(org-cycle nil nil) command-execute(org-cycle) " Please report this to Org mode mailing list (M-x org-submit-bug-report).