From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp12.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms5.migadu.com with LMTPS id 8OteARI1+GIMdwAAbAwnHQ (envelope-from ) for ; Sun, 14 Aug 2022 01:34:42 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp12.migadu.com with LMTPS id IM1NARI1+GJ8dwAAauVa8A (envelope-from ) for ; Sun, 14 Aug 2022 01:34:42 +0200 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 8D1FF96B4 for ; Sun, 14 Aug 2022 01:34:41 +0200 (CEST) Received: from localhost ([::1]:50148 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1oN0eO-0005wY-R7 for larch@yhetil.org; Sat, 13 Aug 2022 19:34:40 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:54474) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oN0dn-0005wQ-SO for emacs-orgmode@gnu.org; Sat, 13 Aug 2022 19:34:03 -0400 Received: from [39.171.214.252] (port=14626 helo=Mac-mini.local) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1oN0dm-0004Xp-16 for emacs-orgmode@gnu.org; Sat, 13 Aug 2022 19:34:03 -0400 Received: by Mac-mini.local (Postfix, from userid 501) id 3F6945EA2AD6; Sun, 14 Aug 2022 07:33:54 +0800 (CST) User-agent: mu4e 1.8.6; emacs 28.1 From: "Christopher M. Miles" To: Org Mode (org-mode) Subject: [BUG] Latest org-fold-core API (overlays compatible code) caused error in package "consult-org-heading" Date: Sun, 14 Aug 2022 07:27:00 +0800 Message-ID: MIME-Version: 1.0 Content-Type: multipart/signed; boundary="==-=-="; micalg=pgp-sha256; protocol="application/pgp-signature" X-Host-Lookup-Failed: Reverse DNS lookup failed for 39.171.214.252 (deferred) Received-SPF: softfail client-ip=39.171.214.252; envelope-from=numbchild@gmail.com; helo=Mac-mini.local X-Spam_score_int: 81 X-Spam_score: 8.1 X-Spam_bar: ++++++++ X-Spam_report: (8.1 / 5.0 requ) BAYES_00=-1.9, DKIM_ADSP_CUSTOM_MED=0.001, FORGED_GMAIL_RCVD=1, FREEMAIL_FROM=0.001, MSGID_MULTIPLE_AT=1, NML_ADSP_CUSTOM_MED=0.9, RCVD_IN_PBL=3.335, RDNS_NONE=0.793, SPF_HELO_NONE=0.001, SPF_SOFTFAIL=0.665, SPOOFED_FREEMAIL=1.522, SPOOFED_FREEMAIL_NO_RDNS=0.001, SPOOF_GMAIL_MID=0.799, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=no autolearn_force=no X-Spam_action: reject 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-To: larch@yhetil.org X-Migadu-Country: US ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1660433681; 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; bh=osAmi7OvezTsjpUXr6sYglzjY0ZgQVl1Us4YouwUgUM=; b=X/02hl69UPFmvV4axD0+FNbN7PfJDHEDyuqCQEq0I6XVlqmf8bY1DXXAyjlvdbqSvWZ/Nc PCYOjCaQYOMzylQbGdnSgWLlf7TyzaY/wQqNivB1cD5Zt1km4+rUZomSa8AGy/JCI0AoXz RM9ODTTwVa1NO2ihawUq+4EpwX7YprGSl38kp7MVRLrcRO9k3fU334vPUyC2tHsZGSxhky XjwFTpgYLBz2UxXadh6Sf9SJ//8kYdvk3teGDxQlG9MKHvu9gcru40b/QFAR9/1w4cQnOS yw+716D8dNHDeidrul0kXmvEvgoGnF/FnsPPkNiW6vRCtliGCihiWAaiSnCI/A== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1660433681; a=rsa-sha256; cv=none; b=oLBUFZK6klhOXk+UkGWx4Et4DBfSSOtflXkkKap5wJidFsSny8VRqYBgQJqNEdS1Xz3d78 oFaW2djdMpF9HQEIULhd/uPUSrLP+IwJjM8X6hofMgVKGV+xccu8Mmm/Zo6YzvqPNUAspO 1qMdQt1Od571zAoudjNpRPdDsni8aCj/wVZsL26lLjVJ+rGYvVrSgBG7r+4/7GBtZ/uAOy b3P2taRe5psOKToVR9tUZpHmizYlyLP/RUFnUNm+yvBD5q0ZU2jtu17Ncwowi0TzP5Bum/ 3uWr+aLEDSnVQ9d+tTHHwASCgnU4RgX66PJ+N1kob7FT7+WUrKF8mtR/dt8NRQ== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=none; dmarc=fail reason="SPF not aligned (relaxed), No valid DKIM" 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: 1.04 Authentication-Results: aspmx1.migadu.com; dkim=none; dmarc=fail reason="SPF not aligned (relaxed), No valid DKIM" 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: 8D1FF96B4 X-Spam-Score: 1.04 X-Migadu-Scanner: scn0.migadu.com X-TUID: YFyuojkwQgrG --==-=-= Content-Type: multipart/mixed; boundary="=-=-=" --=-=-= Content-Type: text/plain I have this option settings: #+begin_src emacs-lisp (setq org-element-use-cache nil) (setq org-fold-core-style 'overlays) (setq org-fold-catch-invisible-edits nil) (use-package consult :ensure t :bind (([remap org-goto] . consult-org-heading)) ; [C-c C-j] :config (require 'consult-org)) #+end_src And here is the testing Org document: #+begin_src org ,#+TITLE: test ,* headline main ,** Screenshots ,** folded? ,** new headline #+end_src Here I attached the backtrace after I toggle-debug-on-error: --=-=-= Content-Type: application/emacs-lisp Content-Disposition: attachment; filename=org-fold-core-backtrace.elisp Content-Transfer-Encoding: quoted-printable Debugger entered--Lisp error: (wrong-type-argument listp #) car(#) (let ((--mpom (car region))) (save-excursion (if (markerp --mpom) (progn = (set-buffer (marker-buffer --mpom)))) (save-excursion (save-restriction (wi= den) (goto-char (or --mpom (point))) (while (< (point) (cdr region)) (funca= ll org-fold-core-isearch-open-function (car region)) (goto-char (org-fold-c= ore-next-visibility-change (point) (cdr region) 'ignore-hidden))))))) org-fold-core--isearch-show(#) consult--invisible-open-permanently() consult--jump(#) #f(compiled-function (action cand) #)(return= #) #f(compiled-function () #)() consult--with-preview-1(any #f(compiled-function (action cand) #) #f(compiled-function (narrow input cand) #) #f(compiled-function (&rest args2) #) #f(compiled-function () #)) consult--read-1((#("headline main=F8=88=80=80=90" 0 1 (consult-org--headi= ng (1 nil) consult--candidate # fac= e org-level-1) 1 13 (face org-level-1) 13 14 (invisible t consult-strip t))= #("headline main/Screenshots=F8=88=80=80=A1" 0 1 (consult-org--heading (2 = nil) consult--candidate # face org-= level-1) 1 13 (face org-level-1) 14 25 (face org-level-2) 25 26 (invisible = t consult-strip t)) #("headline main/folded?=F8=88=80=80=B1" 0 1 (consult-o= rg--heading (2 nil) consult--candidate # face org-level-1) 1 13 (face org-level-1) 14 21 (face org-level-2) 21= 22 (invisible t consult-strip t)) #("headline main/new headline=F8=88=80= =80=BD" 0 1 (consult-org--heading (2 nil) consult--candidate # face org-level-1) 1 13 (face org-level-1) 14 26= (face org-level-2) 26 27 (invisible t consult-strip t))) :initial ".?" :pr= ompt "Go to heading: " :category consult-org-heading :sort nil :require-mat= ch t :history (:input consult-org--history) :narrow (:predicate #f(compiled= -function (cand) #) :keys ((49 . "Level 1") (= 50 . "Level 2") (51 . "Level 3") (52 . "Level 4") (53 . "Level 5") (54 . "L= evel 6") (55 . "Level 7") (56 . "Level 8") (57 . "Level 9") (65 . "Priority= A") (66 . "Priority B") (67 . "Priority C") (68 . "Priority D") (69 . "Pri= ority E") (112 . "PROJECT") (100 . "DONE") (116 . "TODO") (110 . "NEXT") (1= 03 . "INPROGRESS") (122 . "DELAYED") (108 . "LATER") (115 . "SOMEDAY") (100= . "DONE") (120 . "FAILED") (107 . "CANCELLED") (100 . "DONE") (114 . "REPE= AT") (100 . "DONE") (104 . "HABIT") (100 . "DONE") (99 . "CODE") (98 . "BUG= ") (105 . "ISSUE") (101 . "ERROR") (102 . "FEATURE") (112 . "Pull-Request")= (115 . "SECURITY") (100 . "DONE") (119 . "WORK") (109 . "MEETING") (106 . = "JOB") (100 . "DONE") (110 . "LEARN") (114 . "REVIEW") (100 . "DONE") (105 = . "IDEA") (100 . "DONE") (120 . "SEX") (100 . "DONE") (98 . "BUY") ...)) :s= tate #f(compiled-function (action cand) #) :gr= oup nil :lookup consult--lookup-candidate :prompt "Select: " :preview-key a= ny :sort t :lookup #f(compiled-function (selected &rest _) #)) apply(consult--read-1 (#("headline main=F8=88=80=80=90" 0 1 (consult-org-= -heading (1 nil) consult--candidate # face org-level-1) 1 13 (face org-level-1) 13 14 (invisible t consult-str= ip t)) #("headline main/Screenshots=F8=88=80=80=A1" 0 1 (consult-org--headi= ng (2 nil) consult--candidate # fac= e org-level-1) 1 13 (face org-level-1) 14 25 (face org-level-2) 25 26 (invi= sible t consult-strip t)) #("headline main/folded?=F8=88=80=80=B1" 0 1 (con= sult-org--heading (2 nil) consult--candidate # face org-level-1) 1 13 (face org-level-1) 14 21 (face org-level= -2) 21 22 (invisible t consult-strip t)) #("headline main/new headline=F8= =88=80=80=BD" 0 1 (consult-org--heading (2 nil) consult--candidate # face org-level-1) 1 13 (face org-level-1)= 14 26 (face org-level-2) 26 27 (invisible t consult-strip t))) (:initial "= .?" :prompt "Go to heading: " :category consult-org-heading :sort nil :requ= ire-match t :history (:input consult-org--history) :narrow (:predicate #f(c= ompiled-function (cand) #) :keys ((49 . "Leve= l 1") (50 . "Level 2") (51 . "Level 3") (52 . "Level 4") (53 . "Level 5") (= 54 . "Level 6") (55 . "Level 7") (56 . "Level 8") (57 . "Level 9") (65 . "P= riority A") (66 . "Priority B") (67 . "Priority C") (68 . "Priority D") (69= . "Priority E") (112 . "PROJECT") (100 . "DONE") (116 . "TODO") (110 . "NE= XT") (103 . "INPROGRESS") (122 . "DELAYED") (108 . "LATER") (115 . "SOMEDAY= ") (100 . "DONE") (120 . "FAILED") (107 . "CANCELLED") (100 . "DONE") (114 = . "REPEAT") (100 . "DONE") (104 . "HABIT") (100 . "DONE") (99 . "CODE") (98= . "BUG") (105 . "ISSUE") (101 . "ERROR") (102 . "FEATURE") (112 . "Pull-Re= quest") (115 . "SECURITY") (100 . "DONE") (119 . "WORK") (109 . "MEETING") = (106 . "JOB") (100 . "DONE") (110 . "LEARN") (114 . "REVIEW") (100 . "DONE"= ) (105 . "IDEA") (100 . "DONE") (120 . "SEX") (100 . "DONE") (98 . "BUY") .= ..)) :state #f(compiled-function (action cand) #) :group nil :lookup consult--lookup-candidate :prompt "Select: " :previe= w-key any :sort t :lookup #f(compiled-function (selected &rest _) #))) consult--read((#("headline main=F8=88=80=80=90" 0 1 (consult-org--heading= (1 nil) consult--candidate # face = org-level-1) 1 13 (face org-level-1) 13 14 (invisible t consult-strip t)) #= ("headline main/Screenshots=F8=88=80=80=A1" 0 1 (consult-org--heading (2 ni= l) consult--candidate # face org-le= vel-1) 1 13 (face org-level-1) 14 25 (face org-level-2) 25 26 (invisible t = consult-strip t)) #("headline main/folded?=F8=88=80=80=B1" 0 1 (consult-org= --heading (2 nil) consult--candidate # face org-level-1) 1 13 (face org-level-1) 14 21 (face org-level-2) 21 2= 2 (invisible t consult-strip t)) #("headline main/new headline=F8=88=80=80= =BD" 0 1 (consult-org--heading (2 nil) consult--candidate # face org-level-1) 1 13 (face org-level-1) 14 26 (f= ace org-level-2) 26 27 (invisible t consult-strip t))) :prompt "Go to headi= ng: " :category consult-org-heading :sort nil :require-match t :history (:i= nput consult-org--history) :narrow (:predicate #f(compiled-function (cand) = #) :keys ((49 . "Level 1") (50 . "Level 2") (= 51 . "Level 3") (52 . "Level 4") (53 . "Level 5") (54 . "Level 6") (55 . "L= evel 7") (56 . "Level 8") (57 . "Level 9") (65 . "Priority A") (66 . "Prior= ity B") (67 . "Priority C") (68 . "Priority D") (69 . "Priority E") (112 . = "PROJECT") (100 . "DONE") (116 . "TODO") (110 . "NEXT") (103 . "INPROGRESS"= ) (122 . "DELAYED") (108 . "LATER") (115 . "SOMEDAY") (100 . "DONE") (120 .= "FAILED") (107 . "CANCELLED") (100 . "DONE") (114 . "REPEAT") (100 . "DONE= ") (104 . "HABIT") (100 . "DONE") (99 . "CODE") (98 . "BUG") (105 . "ISSUE"= ) (101 . "ERROR") (102 . "FEATURE") (112 . "Pull-Request") (115 . "SECURITY= ") (100 . "DONE") (119 . "WORK") (109 . "MEETING") (106 . "JOB") (100 . "DO= NE") (110 . "LEARN") (114 . "REVIEW") (100 . "DONE") (105 . "IDEA") (100 . = "DONE") (120 . "SEX") (100 . "DONE") (98 . "BUY") ...)) :state #f(compiled-= function (action cand) #) :group nil :lookup c= onsult--lookup-candidate) consult-org-heading() funcall-interactively(consult-org-heading) call-interactively(consult-org-heading nil nil) command-execute(consult-org-heading) --=-=-= Content-Type: text/plain Content-Transfer-Encoding: quoted-printable =2D-=20 [ stardiviner ] I try to make every word tell the meaning that I want to express without mi= sunderstanding. Blog: https://stardiviner.github.io/ IRC(libera.chat, freenode): stardiviner, Matrix: stardiviner GPG: F09F650D7D674819892591401B5DF1C95AE89AC3 --=-=-=-- --==-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQEzBAEBCAAdFiEE8J9lDX1nSBmJJZFAG13xyVromsMFAmL4NOEACgkQG13xyVro msOisggAmGn6zkva0sZndtA3C15UlKmmUq88WAVXx2GKD+DGohmWxrs9/NToaQPd gVkDzGF9wjcb6yCPwYbAztQw1EE+khb5CTtqk6hSo5q+PJFMqbeGAr4Pjyh2OzfB +PO1UZcxrQrUr0EyIp9/UUNRmaeF9V7y3XDkML4IeUugeLNaVVjy5Dug1U2Cnmb2 NjwFrcS9fn2w8up/0EiM3y6z1JD/haELGMOJSLQUNgXMJxEyQ8v5DOv3Nkd9STIP cP1+3PZhJhgOyFrsGF/uPvm4rkEB9/tN99UamS9KlVEhUAT3SpNtywTBzeuGNDu3 jEQnVn9HKf+SVbf8Ro6ZdTcAti9hCg== =QLSo -----END PGP SIGNATURE----- --==-=-=--