From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp2.migadu.com ([2001:41d0:303:e224::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms13.migadu.com with LMTPS id 2Nu+N+To72bdTgAAe85BDQ:P1 (envelope-from ) for ; Sun, 22 Sep 2024 09:52:37 +0000 Received: from aspmx1.migadu.com ([2001:41d0:303:e224::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp2.migadu.com with LMTPS id 2Nu+N+To72bdTgAAe85BDQ (envelope-from ) for ; Sun, 22 Sep 2024 11:52:37 +0200 X-Envelope-To: larch@yhetil.org Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=posteo.net header.s=2017 header.b=AdsnU8GN; spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org"; dmarc=pass (policy=none) header.from=posteo.net ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1726998756; 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:dkim-signature; bh=fTAex2ziJWC8tsfrZIvxUgPju/lv25NzvasQawvV55Y=; b=gpueACb9Lo1+GKKr2BUd7vYxoTpo31A8+nn0No1MTT58S6jpMHPXTbX3ybUKauX8ye3CwA D3/97c+2/EIjYKmloySDDz1RYG0TOIe0Z+ZkUUWoQB6IkDloGzJEZyJEQhU/bZuTP5YyDd YVa1sUoi92oD+j/LBY9cABZKitnup831v2ViSSuPaHMSH3a1wQx7W+QHCcFHWiy/W1Rwh4 zuthBbCFCNHLDVloyOTPJE2MTvGkAqiMZ/A6nJe5AHJYBXKNdmNqX0IbhJ8a2Aetot8Wj0 SPPPlX97GXHtL3s9RasCv9d2Ulg3Xh9+V/k3r9I2L8zlgNCEeOoLDb03XLGK0g== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1726998756; a=rsa-sha256; cv=none; b=T4cJuYONxWM+SUYCgSFivL5HbSHohPeRW4TRVbHSKH28jehyvop+jxdfqVN8f3n1/Svlhj Wg4K64USR/YxM3x2gfNw4GOPXLClElYLYOLGxNOcvs4+FPvOUAKuI5CqUFTbw8tXn2nGwx OUjk31PDiwIJlvLIlc9w3rITvc+TCgSlLKDea7IdW2499AtvcQ3jiOsPgs4kfONlRDzn3W mmPRIie+/wGdCar9mDNspswSgiJckqxhz9RsvcN/4s1+BVpdKSpmawj9mWSg2rWSmVzpXH FLpdP5XisyNQvIjYu1eowGTgWM3CkqCckg7qNVFlDjy1J7Xs44AyDoSuMrBqGA== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=pass header.d=posteo.net header.s=2017 header.b=AdsnU8GN; spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org"; dmarc=pass (policy=none) header.from=posteo.net 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 90C8879B55 for ; Sun, 22 Sep 2024 11:52:36 +0200 (CEST) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1ssJFk-0000f3-KO; Sun, 22 Sep 2024 05:51:40 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ssJFi-0000ed-Jo for emacs-orgmode@gnu.org; Sun, 22 Sep 2024 05:51:38 -0400 Received: from mout02.posteo.de ([185.67.36.66]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ssJFe-0006a0-9f for emacs-orgmode@gnu.org; Sun, 22 Sep 2024 05:51:38 -0400 Received: from submission (posteo.de [185.67.36.169]) by mout02.posteo.de (Postfix) with ESMTPS id D94B2240101 for ; Sun, 22 Sep 2024 11:51:31 +0200 (CEST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=posteo.net; s=2017; t=1726998691; bh=150ZiTL7TZV7NnvbXKct8lRX/6sQbVnIpYs0PfIBi+I=; h=From:To:Cc:Subject:Date:Message-ID:MIME-Version:Content-Type: Content-Transfer-Encoding:From; b=AdsnU8GNGb2vdm49katLTYGi6WW1R4nwjYT1rCuieVHLs5fl/a0A6q0D8MjpbzqbB tnBFW1iX3Gq3as8ljfubaIOu1BFrL04yFqqpSkemJ+DTbNuaI4v7TFgkPHmVvyr4qa URXI3hTeYFGs2Ab7QQ9Io6TuNA7f2K6OeaEpMAvF9eu6BeZQRkmoKWULBBS96r9R/f nBQdZjernvQNisQZnSVlTxvWWGF09I4M3b3rPY47QDc2w16hIM0zQpqiHv0XF/rrjE cC0+1tHDG075Cs5bULex3iX61aknDNrZkr5Uj6MHM/J1PK8SWLHU1mChUnVXPLvSLy uaJiGZsJzfULw== Received: from customer (localhost [127.0.0.1]) by submission (posteo.de) with ESMTPSA id 4XBLxH1w9Xz9rxM; Sun, 22 Sep 2024 11:51:31 +0200 (CEST) From: Ihor Radchenko To: Benjamin McMillan Cc: emacs-orgmode@gnu.org Subject: Re: [BUG] export blocks no longer fontifying [9.7.10 (release_9.7.10 @ /Users/ben/Scripts/emacs/lisp/org/)] In-Reply-To: References: <87ikv3o33d.fsf@localhost> <87h6aejf17.fsf@localhost> Date: Sun, 22 Sep 2024 09:53:07 +0000 Message-ID: <87tte8qakc.fsf@localhost> MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Received-SPF: pass client-ip=185.67.36.66; envelope-from=yantar92@posteo.net; helo=mout02.posteo.de X-Spam_score_int: -43 X-Spam_score: -4.4 X-Spam_bar: ---- X-Spam_report: (-4.4 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, RCVD_IN_DNSWL_MED=-2.3, RCVD_IN_MSPIKE_H3=0.001, RCVD_IN_MSPIKE_WL=0.001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: emacs-orgmode-bounces+larch=yhetil.org@gnu.org X-Migadu-Flow: FLOW_IN X-Migadu-Country: US X-Migadu-Scanner: mx12.migadu.com X-Migadu-Spam-Score: -9.75 X-Migadu-Queue-Id: 90C8879B55 X-Spam-Score: -9.75 X-TUID: xc2LGmBv2R8T [ Adding Org mailing list back to CC to keep the conversation public ] Benjamin McMillan writes: > Dear Ihor, > I am happy to make the changes. > I am not sure what exactly made the last commit message read like a new > feature, but hopefully the following is better: > lisp/org.el: Add "export" to list of native fontified blocks > If not, I can modify again. Thanks! Applied, onto bugfix. I modified the commit message a bit. https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=3D2a85367ea8 I also added you to the contributor list. https://git.sr.ht/~bzg/worg/commit/84bb23ce Fixed. > And thanks for the explanation, it makes sense. > > Regards the logs, it may be because I don't have the org git repository s= et > up properly. > I cloned the source into a folder that has no relation to my emacs setup, > so that might be causing problems. > Logs: > Ran 1284 tests, 1216 results as expected, 55 unexpected, 13 skipped > (2024-09-17 19:52:08+0900, 75.466775 sec) > 2 expected failures > ... Most of the failing tests are concerning running external programs (java and maxima). It looks like you have them installed, but they somehow misbehave. Maybe old versions? > FAILED test-org-table/sort-lines ((should (equal "| a | x |\n| B | 4 > |\n| c | 3 |\n" (org-test-with-temp-text "| a | x |\n| c | 3 |\n| B > | 4 |\n" (org-table-sort-lines nil 97) (buffer-string)))) :form (equal "|= a > | x |\n| B | 4 |\n| c | 3 |\n" #("| B | 4 |\n| a | x |\n| c | 3 |\n" 0 9 > (face org-table) 9 10 (face org-table-row) 10 19 (face org-table) 19 20 > (face org-table-row) 20 29 (face org-table) 29 30 (face org-table-row))) > :value nil :explanation (array-elt 2 (different-atoms (97 "#x61" "?a") (66 > "#x42" "?B")))) This is probably your locale. The test is checking sorting and sorting depends on language settings. This one is kind of expected. Although it would be nice to make test account for locales as well. > 55 unexpected results: > FAILED ob-java/args-quoted-string ((should (string=3D "forty two\n42= \n" > (org-babel-execute-src-block))) :form (string=3D "forty two\n42\n" "") :v= alue > nil :explanation (arrays-of-different-length 13 0 "forty two\n42\n" "" > first-mismatch-at 0)) > FAILED ob-java/import_library ((should (string=3D "encoded=3DNDI=3D, > decoded=3D42" (org-babel-execute-src-block))) :form (string=3D "encoded= =3DNDI=3D, > decoded=3D42" "") :value nil :explanation (arrays-of-different-length 24 0 > "encoded=3DNDI=3D, decoded=3D42" "" first-mismatch-at 0)) > FAILED ob-java/import_library_inline ((should (string=3D "encoded=3D= NDI=3D, > decoded=3D42" (org-babel-execute-src-block))) :form (string=3D "encoded= =3DNDI=3D, > decoded=3D42" "") :value nil :explanation (arrays-of-different-length 24 0 > "encoded=3DNDI=3D, decoded=3D42" "" first-mismatch-at 0)) > FAILED ob-java/inhomogeneous_table ((should (equal '(("forty" 4) > ("two" 2)) (org-babel-execute-src-block))) :form (equal (("forty" 4) ("tw= o" > 2)) "") :value nil :explanation (different-types (("forty" 4) ("two" 2)) > "")) > FAILED ob-java/integer-var ((should (string=3D "42" > (org-babel-execute-src-block))) :form (string=3D "42" "") :value nil > :explanation (arrays-of-different-length 2 0 "42" "" first-mismatch-at 0)) > FAILED ob-java/list-var ((should (equal '("forty" "two") > (org-babel-execute-src-block))) :form (equal ("forty" "two") "") :value n= il > :explanation (different-types ("forty" "two") "")) > FAILED ob-java/matrix-var ((should (equal '((2 4) (1 2)) > (org-babel-execute-src-block))) :form (equal ((2 4) (1 2)) "") :value nil > :explanation (different-types ((2 4) (1 2)) "")) > FAILED ob-java/matrix-var-with-header ((should (equal '(("col1" > "col2") hline (2 4) (1 2)) (org-babel-execute-src-block))) :form (equal > (("col1" "col2") hline (2 4) (1 2)) ((""))) :value nil :explanation > (proper-lists-of-different-length 4 1 (("col1" "col2") hline (2 4) (1 2)) > (("")) first-mismatch-at 0)) > FAILED ob-java/one-arg ((should (string=3D "fortytwo" > (org-babel-execute-src-block))) :form (string=3D "fortytwo" "") :value nil > :explanation (arrays-of-different-length 8 0 "fortytwo" "" > first-mismatch-at 0)) > FAILED ob-java/output-list-with-spaces ((should (equal "forty > two\nforty two\n" (org-babel-execute-src-block))) :form (equal "forty > two\nforty two\n" "") :value nil :explanation (arrays-of-different-length > 20 0 "forty two\nforty two\n" "" first-mismatch-at 0)) > FAILED ob-java/output-table-with-header ((should (equal > "|col1|col2|\n|-\n|2|1\n|4|2\n" (org-babel-execute-src-block))) :form > (equal "|col1|col2|\n|-\n|2|1\n|4|2\n" "") :value nil :explanation > (arrays-of-different-length 25 0 "|col1|col2|\n|-\n|2|1\n|4|2\n" "" > first-mismatch-at 0)) > FAILED ob-java/read-list-return-array ((should (equal '("forty" "two= ") > (org-babel-execute-src-block))) :form (equal ("forty" "two") "") :value n= il > :explanation (different-types ("forty" "two") "")) > FAILED ob-java/read-return-list ((should (equal '("forty" "two") > (org-babel-execute-src-block))) :form (equal ("forty" "two") "") :value n= il > :explanation (different-types ("forty" "two") "")) > FAILED ob-java/read-return-list-with-package ((should (equal '("fort= y" > "two") (org-babel-execute-src-block))) :form (equal ("forty" "two") "") > :value nil :explanation (different-types ("forty" "two") "")) > FAILED ob-java/return-vector-using-array ((should (equal '((4) (2)) > (org-babel-execute-src-block))) :form (equal ((4) (2)) ((""))) :value nil > :explanation (proper-lists-of-different-length 2 1 ((4) (2)) (("")) > first-mismatch-at 0)) > FAILED ob-java/return-vector-using-list ((should (equal '((4) (2)) > (org-babel-execute-src-block))) :form (equal ((4) (2)) ((""))) :value nil > :explanation (proper-lists-of-different-length 2 1 ((4) (2)) (("")) > first-mismatch-at 0)) > FAILED ob-java/simple ((should (string=3D "42" > (org-babel-execute-src-block))) :form (string=3D "42" "") :value nil > :explanation (arrays-of-different-length 2 0 "42" "" first-mismatch-at 0)) > FAILED ob-java/simple-dir ((should (string=3D "42" (unwind-protect > (org-babel-execute-src-block) (delete-file (concat ... "Main.java")) > (delete-file (concat ... "Main.class"))))) :form (string=3D "42" "") :val= ue > nil :explanation (arrays-of-different-length 2 0 "42" "" first-mismatch-at > 0)) > FAILED ob-java/simple-dir-with-package ((should (string=3D "42" > (unwind-protect (org-babel-execute-src-block) (delete-file (concat ... > "pkg/Main.java")) (delete-file (concat ... "pkg/Main.class")) > (delete-directory (concat ... "pkg"))))) :form (string=3D "42" "") :value= nil > :explanation (arrays-of-different-length 2 0 "42" "" first-mismatch-at 0)) > FAILED ob-java/simple-return-float ((should (equal 42.0 > (org-babel-execute-src-block))) :form (equal 42.0 "") :value nil > :explanation (different-types 42.0 "")) > FAILED ob-java/simple-return-int ((should (eq 42 > (org-babel-execute-src-block))) :form (eq 42 "") :value nil) > FAILED ob-java/simple-return-string ((should (string=3D "forty two" > (org-babel-execute-src-block))) :form (string=3D "forty two" "") :value n= il > :explanation (arrays-of-different-length 9 0 "forty two" "" > first-mismatch-at 0)) > FAILED ob-java/simple-with-bracket ((should (string=3D "[42" > (org-babel-execute-src-block))) :form (string=3D "[42" "") :value nil > :explanation (arrays-of-different-length 3 0 "[42" "" first-mismatch-at 0= )) > FAILED ob-java/simple-with-class ((should (string=3D "42" > (org-babel-execute-src-block))) :form (string=3D "42" "") :value nil > :explanation (arrays-of-different-length 2 0 "42" "" first-mismatch-at 0)) > FAILED ob-java/simple-with-class-and-package ((should (string=3D "42" > (org-babel-execute-src-block))) :form (string=3D "42" "") :value nil > :explanation (arrays-of-different-length 2 0 "42" "" first-mismatch-at 0)) > FAILED ob-java/simple-with-class-attr ((should (string=3D "42" > (org-babel-execute-src-block))) :form (string=3D "42" "") :value nil > :explanation (arrays-of-different-length 2 0 "42" "" first-mismatch-at 0)) > FAILED ob-java/simple-with-class-attr-with-package ((should (string= =3D > "42" (org-babel-execute-src-block))) :form (string=3D "42" "") :value nil > :explanation (arrays-of-different-length 2 0 "42" "" first-mismatch-at 0)) > FAILED ob-java/simple-with-main ((should (string=3D "42" > (org-babel-execute-src-block))) :form (string=3D "42" "") :value nil > :explanation (arrays-of-different-length 2 0 "42" "" first-mismatch-at 0)) > FAILED ob-java/simple-with-main-args-array ((should (string=3D "42" > (org-babel-execute-src-block))) :form (string=3D "42" "") :value nil > :explanation (arrays-of-different-length 2 0 "42" "" first-mismatch-at 0)) > FAILED ob-java/simple-with-main-whitespace ((should (string=3D "42" > (org-babel-execute-src-block))) :form (string=3D "42" "") :value nil > :explanation (arrays-of-different-length 2 0 "42" "" first-mismatch-at 0)) > FAILED ob-java/simple-with-no-main ((should (string=3D "success" > (org-babel-execute-src-block))) :form (string=3D "success" "") :value nil > :explanation (arrays-of-different-length 7 0 "success" "" first-mismatch-= at > 0)) > FAILED ob-java/simple-with-non-public-class ((should (string=3D "42" > (org-babel-execute-src-block))) :form (string=3D "42" "") :value nil > :explanation (arrays-of-different-length 2 0 "42" "" first-mismatch-at 0)) > FAILED ob-java/simple-with-quote ((should (string=3D "\"42\"" > (org-babel-execute-src-block))) :form (string=3D "\"42\"" "") :value nil > :explanation (arrays-of-different-length 4 0 "\"42\"" "" first-mismatch-at > 0)) > FAILED ob-java/simple-with-two-methods ((should (string=3D "42" > (org-babel-execute-src-block))) :form (string=3D "42" "") :value nil > :explanation (arrays-of-different-length 2 0 "42" "" first-mismatch-at 0)) > FAILED ob-java/string-var ((should (string=3D "forty two, len=3D9" > (org-babel-execute-src-block))) :form (string=3D "forty two, len=3D9" "") > :value nil :explanation (arrays-of-different-length 16 0 "forty two, len= =3D9" > "" first-mismatch-at 0)) > FAILED ob-java/two-vars ((should (string=3D "42" > (org-babel-execute-src-block))) :form (string=3D "42" "") :value nil > :explanation (arrays-of-different-length 2 0 "42" "" first-mismatch-at 0)) > FAILED ob-java/var-with-class ((should (string=3D "42" > (org-babel-execute-src-block))) :form (string=3D "42" "") :value nil > :explanation (arrays-of-different-length 2 0 "42" "" first-mismatch-at 0)) > FAILED ob-java/var-with-class-and-hanging-curlies ((should (string=3D > "42" (org-babel-execute-src-block))) :form (string=3D "42" "") :value nil > :explanation (arrays-of-different-length 2 0 "42" "" first-mismatch-at 0)) > FAILED ob-java/var-with-class-and-package ((should (string=3D "42" > (org-babel-execute-src-block))) :form (string=3D "42" "") :value nil > :explanation (arrays-of-different-length 2 0 "42" "" first-mismatch-at 0)) > FAILED ob-java/var-with-main ((should (string=3D "42" > (org-babel-execute-src-block))) :form (string=3D "42" "") :value nil > :explanation (arrays-of-different-length 2 0 "42" "" first-mismatch-at 0)) > FAILED ob-java/vector-var ((should (equal '("forty" "two") > (org-babel-execute-src-block))) :form (equal ("forty" "two") "") :value n= il > :explanation (different-types ("forty" "two") "")) > FAILED ob-maxima/batch+verbatim ((should (equal > (org-babel-execute-src-block) "(assume(z > > 0),integrate(exp(-t)*t^z,t,0,inf))\n > gamma(z + 1)")) :form (equal "(linenum:0,\n(assume(z > > 0),integrate(exp(-t)*t^z,t,0,inf))\n > gamma(z + 1)" "(assume(z > 0),integrate(exp(-t)*t^z,t,0,inf))\n > gamma(z + 1)") :value nil :explanation > (arrays-of-different-length 104 92 "(linenum:0,\n(assume(z > > 0),integrate(exp(-t)*t^z,t,0,inf))\n > gamma(z + 1)" "(assume(z > 0),integrate(exp(-t)*t^z,t,0,inf))\n > gamma(z + 1)" first-mismatch-at 1)) > FAILED ob-maxima/batch+verbatim+:lisp ((should (equal > (org-babel-execute-src-block) "((%GAMMA SIMP) ((MPLUS SIMP) 1 $Z))")) :fo= rm > (equal "(%i1) (linenum:0,\n((%GAMMA SIMP) ((MPLUS SIMP) 1 $Z))" "((%GAMMA > SIMP) ((MPLUS SIMP) 1 $Z))") :value nil :explanation > (arrays-of-different-length 53 35 "(%i1) (linenum:0,\n((%GAMMA SIMP) > ((MPLUS SIMP) 1 $Z))" "((%GAMMA SIMP) ((MPLUS SIMP) 1 $Z))" > first-mismatch-at 1)) > FAILED ob-maxima/batch+verbatim+empty-string ((should (equal > (org-babel-execute-src-block) "(%i1) \"\"\n(%o1) ")) :form (equal "(%i1) > (linenum:0,\n(%i1) \"\"\n(%o1) " "(%i1) \"\"\n(%o1) ") :value nil > :explanation (arrays-of-different-length 33 15 "(%i1) (linenum:0,\n(%i1) > \"\"\n(%o1) " "(%i1) \"\"\n(%o1) " first-mismatch-at 6)) > FAILED ob-maxima/batch+verbatim+empty-string-vq ((should (equal > (org-babel-execute-src-block) "\"\"\n ")) :form (equal "(linenum:0,\n\"\"= \n > " "\"\"\n ") :value nil :explanation (arrays-of-different-length 16 4 > "(linenum:0,\n\"\"\n " "\"\"\n " first-mismatch-at 0)) > FAILED ob-maxima/batch+verbatim+quiet ((should (equal > (org-babel-execute-src-block) "(%i1) (assume(z > > 0),integrate(exp(-t)*t^z,t,0,inf))\n(%o1) > gamma(z + 1)")) :form (equal "(%i1) (linenum:0,\n(%i1) (assume(z > > 0),integrate(exp(-t)*t^z,t,0,inf))\n(%o1) > gamma(z + 1)" "(%i1) (assume(z > 0),integrate(exp(-t)*t^z,t,0,inf))\n(%o= 1) > gamma(z + 1)") :value nil :explanation > (arrays-of-different-length 116 98 "(%i1) (linenum:0,\n(%i1) (assume(z > > 0),integrate(exp(-t)*t^z,t,0,inf))\n(%o1) > gamma(z + 1)" "(%i1) (assume(z > 0),integrate(exp(-t)*t^z,t,0,inf))\n(%o= 1) > gamma(z + 1)" first-mismatch-at 7)) > FAILED ob-maxima/batch+verbatim+whitespace-string ((should (equal > (org-babel-execute-src-block) "(%i1) \" \"\n(%o1) > ")) :form (equal "(%i1) (linenum:0,\n(%i1) \" \"\n(%o1) > " "(%i1) \" \"\n(%o1) > ") :value nil :explanation (arrays-of-different-length 68 50 "(%i1) > (linenum:0,\n(%i1) \" \"\n(%o1) " "(%i1) > \" \"\n(%o1) " first-mismatch-at 6)) > FAILED ob-maxima/integer-input ((should (equal 4 > (org-babel-execute-src-block))) :form (equal 4 (("(linenum:0,") (4))) > :value nil :explanation (different-types 4 (("(linenum:0,") (4)))) > FAILED ob-maxima/list-input ((should (equal "[2, [2, 3], 4] " > (org-babel-execute-src-block))) :form (equal "[2, [2, 3], 4] " > "(linenum:0,\n[2, [2, 3], 4] ") :value nil :explanation > (arrays-of-different-length 15 27 "[2, [2, 3], 4] " "(linenum:0,\n[2, [2, > 3], 4] " first-mismatch-at 0)) > FAILED ob-maxima/matrix-output ((should (equal '((1 2 3) (2 3 4) (3 4 > 5)) (org-babel-execute-src-block))) :form (equal ((1 2 3) (2 3 4) (3 4 5)) > (("(linenum:0," "" "") (1 2 3) (2 3 4) (3 4 5))) :value nil :explanation > (proper-lists-of-different-length 3 4 ((1 2 3) (2 3 4) (3 4 5)) > (("(linenum:0," "" "") (1 2 3) (2 3 4) (3 4 5)) first-mismatch-at 0)) > FAILED ob-maxima/simple-list-input ((should (equal "[1, 2, 3] " > (org-babel-execute-src-block))) :form (equal "[1, 2, 3] " "(linenum:0,\n[= 1, > 2, 3] ") :value nil :explanation (arrays-of-different-length 10 22 "[1, 2, > 3] " "(linenum:0,\n[1, 2, 3] " first-mismatch-at 0)) > FAILED ob-maxima/string-input ((should (equal "- sin(x)" > (org-babel-execute-src-block))) :form (equal "- sin(x)" (("(linenum:0," "= ") > ("-" "sin(x)"))) :value nil :explanation (different-types "- sin(x)" > (("(linenum:0," "") ("-" "sin(x)")))) > FAILED ob-maxima/table-input1 ((should (equal "[[2.0], [3.0]] " > (org-babel-execute-src-block))) :form (equal "[[2.0], [3.0]] " > "(linenum:0,\n[[2.0], [3.0]] ") :value nil :explanation > (arrays-of-different-length 15 27 "[[2.0], [3.0]] " "(linenum:0,\n[[2.0], > [3.0]] " first-mismatch-at 0)) > FAILED ob-maxima/table-input2 ((should (equal "[[2.0, 3.0]] " > (org-babel-execute-src-block))) :form (equal "[[2.0, 3.0]] " > "(linenum:0,\n[[2.0, 3.0]] ") :value nil :explanation > (arrays-of-different-length 13 25 "[[2.0, 3.0]] " "(linenum:0,\n[[2.0, > 3.0]] " first-mismatch-at 0)) > FAILED test-org-table/sort-lines ((should (equal "| a | x |\n| B | 4 > |\n| c | 3 |\n" (org-test-with-temp-text "| a | x |\n| c | 3 |\n| B > | 4 |\n" (org-table-sort-lines nil 97) (buffer-string)))) :form (equal "|= a > | x |\n| B | 4 |\n| c | 3 |\n" #("| B | 4 |\n| a | x |\n| c | 3 |\n" 0 9 > (face org-table) 9 10 (face org-table-row) 10 19 (face org-table) 19 20 > (face org-table-row) 20 29 (face org-table) 29 30 (face org-table-row))) > :value nil :explanation (array-elt 2 (different-atoms (97 "#x61" "?a") (66 > "#x42" "?B")))) > > 13 skipped results: > SKIPPED org-missing-dependency/test-ob-R ((skip-unless nil) :form nil > :value nil) > SKIPPED org-missing-dependency/test-ob-clojure ((skip-unless nil) :fo= rm > nil :value nil) > SKIPPED org-missing-dependency/test-ob-haskell-ghci ((skip-unless nil) > :form nil :value nil) > SKIPPED org-missing-dependency/test-ob-julia ((skip-unless nil) :form > nil :value nil) > SKIPPED org-missing-dependency/test-ob-lua ((skip-unless nil) :form n= il > :value nil) > SKIPPED org-missing-dependency/test-ob-octave ((skip-unless nil) :form > nil :value nil) > SKIPPED org-missing-dependency/test-ob-python ((skip-unless nil) :form > nil :value nil) > SKIPPED org-missing-dependency/test-ob-ruby ((skip-unless nil) :form > nil :value nil) > SKIPPED org-missing-dependency/test-ob-scheme ((skip-unless nil) :form > nil :value nil) > SKIPPED org-missing-dependency/test-org-attach-git ((skip-unless nil) > :form nil :value nil) > SKIPPED test-ob-shell/bash-uses-assoc-arrays ((skip-unless (if-let > ((bash (executable-find "bash"))) (eq 0 (process-file bash nil nil nil "-= c" > "declare -A assoc_array")))) :form (let* ((bash (and t (executable-find > "bash")))) (if bash (eq 0 (process-file bash nil nil nil "-c" "declare -A > assoc_array")) nil)) :value nil) > SKIPPED test-ob-shell/bash-uses-assoc-arrays-with-lists ((skip-unless > (if-let ((bash (executable-find "bash"))) (eq 0 (process-file bash nil nil > nil "-c" "declare -A assoc_array")))) :form (let* ((bash (and t > (executable-find "bash")))) (if bash (eq 0 (process-file bash nil nil nil > "-c" "declare -A assoc_array")) nil)) :value nil) > SKIPPED test-org-fold/org-fold-display-inline-images ((skip-unless (n= ot > noninteractive)) :form (not t) :value nil) > > make: *** [test] Error 1 > > > > > > > On Wed, Sep 18, 2024 at 3:43=E2=80=AFAM Ihor Radchenko wrote: > >> Benjamin McMillan writes: >> >> > I attach the patch here. >> >> Thanks! >> >> > However, I have two questions. >> > First, I am not certain that I set up the repository correctly, because >> > when I run "make test" it generates 55 unexpected failures. This witho= ut >> > making any changes. >> > (The patch submitted here does not generate any new failures.) >> >> That's odd. May you share the log? >> >> > Second, the existing comment at the patch becomes slightly out of date >> with >> > the change. >> >> Then, may you please update the comment? >> >> Also, may you change the commit message to not sound like it is a new >> feature? Just explain the purpose of the change as you did in this >> email thread (but shorter, and then add a link to this thread). >> >> > In fact, I propose that it might be good to update the docstring for >> > `org-src-fontify-natively' to explicitly state that it enable >> fontification >> > for src, example, and export blocks. >> >> I'd rather not document this in `org-src-fontify-natively'. The name of >> this variable does not really hint that it has anything to do with >> export or example blocks. >> >> We may eventually rename it to something more generic, but example >> blocks may need to be re-considered because specifying language of the >> example block is not even a part of Org syntax. So, generalizing and >> documenting this is a bit tricky. >> >> -- >> Ihor Radchenko // yantar92, >> Org mode contributor, >> Learn more about Org mode at . >> Support Org development at , >> or support my work at >> > From c245df2136778fd34d3ed263208331ca4e35e54d Mon Sep 17 00:00:00 2001 > From: Benjamin McMillan > Date: Fri, 20 Sep 2024 23:43:55 +0900 > Subject: [PATCH] lisp/org.el: Add "export" to list of native fontified bl= ocks > > * lisp/org.el (org-fontify-meta-lines-and-blocks-1): Add "export" to > list of block types that are fontified if org-src-fontify-natively > is non-nil. > > Link: https://list.orgmode.org/87h6aejf17.fsf@localhost/ > TINYCHANGE > --- > lisp/org.el | 12 ++++++------ > 1 file changed, 6 insertions(+), 6 deletions(-) > > diff --git a/lisp/org.el b/lisp/org.el > index d5c1dcb35..df58b47be 100644 > --- a/lisp/org.el > +++ b/lisp/org.el > @@ -5490,14 +5490,14 @@ by a #." > (org-remove-flyspell-overlays-in nl-before-endline end-of-endline) > (cond > ((and org-src-fontify-natively > - ;; Technically, according to > + ;; Technically, according to the > ;; `org-src-fontify-natively' docstring, we should > ;; only fontify src blocks. However, it is common > - ;; to use undocumented fontification of example > - ;; blocks with undocumented language specifier. > - ;; Keep this undocumented feature for user > - ;; convenience. > - (member block-type '("src" "example"))) > + ;; to use undocumented fontification of export and > + ;; example blocks. (The latter which do not support a > + ;; language specifier.) Keep this undocumented feature > + ;; for user convenience. > + (member block-type '("src" "export" "example"))) > (save-match-data > (org-src-font-lock-fontify-block (or lang "") block-star= t block-end)) > (add-text-properties bol-after-beginline block-end '(src-block t)= )) > --=20 > 2.46.0 > --=20 Ihor Radchenko // yantar92, Org mode contributor, Learn more about Org mode at . Support Org development at , or support my work at