From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp1.migadu.com ([2001:41d0:403:58f0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms13.migadu.com with LMTPS id 8G3MB7xq8Wbk4AAA62LTzQ:P1 (envelope-from ) for ; Mon, 23 Sep 2024 13:18:52 +0000 Received: from aspmx1.migadu.com ([2001:41d0:403:58f0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp1.migadu.com with LMTPS id 8G3MB7xq8Wbk4AAA62LTzQ (envelope-from ) for ; Mon, 23 Sep 2024 15:18:52 +0200 X-Envelope-To: larch@yhetil.org Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=gmail.com header.s=20230601 header.b=j9tygHbD; 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=gmail.com ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1727097531; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=bklZWdR9uZPvb50Tc424yGLUgA1Exa9YFZdTUN7Bvv8=; b=PjzZ2mU0dKaiGI9B8DHxA5zIamF8cUtBObaLDFV/8fnXqQeM/dKBgL0wMSprpchsZq+/r9 MSYz7g6xasTitNzjt97/lkUvKfBVRr39yqMJYz274c3A6E0qFToAJa7WoeqJ2firX6bPWo Ctwlivopnu8YvbeFwRtPk8DTY02zVTKunK8q/gijEhrgKhvX3c6FkULMj7Qk1FDN3kvwpx PdUyDth0yD+OtgKetSTZNY8vfT8/SqNAigff+Ku4kjqcveBVqw00lYB5/FfRUdj8B2dYfl /IMzD1/rXTpIZGNMxjXhqJTUHdybvSVYn/vbs7BE08MJhDyg5bWKx4xO1rFuIQ== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=pass header.d=gmail.com header.s=20230601 header.b=j9tygHbD; 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=gmail.com ARC-Seal: i=1; s=key1; d=yhetil.org; t=1727097531; a=rsa-sha256; cv=none; b=bN2xAZp56pvFej+M7k/bySpsrxJ1p8tgwhqoh4LQIJwkXdk4d6ohaKLBN3Cs7AxapTuXwZ DsUSDxEEPm9nCwxmrd8e1zO6TxR2NlwkEjioTrhj5+TBIxcoof77jRS96M/qIuZK4XHBW8 hU4K99JDhOjvlwemZwztma566rOf9Hp9pzaWXqzB80j0PiOlZWAU3ccNAkWLGdQ4ZEhesW xNDbrvJUisQ3D5WtO/a1TY4MvVhugLZg5crUqCDS4R98ak+Tz9t5TrKpSCzNDfLXjd9cJE cYbH3Z7+Xxy7hY/KhRy2KpKotg1WHHyXwswr1koECoYzYxuTNl4RP3JhePPSZg== 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 8576A73B7 for ; Mon, 23 Sep 2024 15:18:51 +0200 (CEST) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1ssixF-0001d4-Bh; Mon, 23 Sep 2024 09:18:17 -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 1ssixC-0001cq-Az for emacs-orgmode@gnu.org; Mon, 23 Sep 2024 09:18:14 -0400 Received: from mail-yb1-xb2c.google.com ([2607:f8b0:4864:20::b2c]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1ssix7-0003iY-JC for emacs-orgmode@gnu.org; Mon, 23 Sep 2024 09:18:14 -0400 Received: by mail-yb1-xb2c.google.com with SMTP id 3f1490d57ef6-e1a9b40f6b3so3665368276.1 for ; Mon, 23 Sep 2024 06:18:08 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20230601; t=1727097488; x=1727702288; darn=gnu.org; h=cc:to:subject:message-id:date:from:in-reply-to:references :mime-version:from:to:cc:subject:date:message-id:reply-to; bh=bklZWdR9uZPvb50Tc424yGLUgA1Exa9YFZdTUN7Bvv8=; b=j9tygHbDGsk6IfpcyuinbfX5LHhY5pfrH10L7Tvm0LJJAGpEbbblBePSG6W1DUrqWz irEvdvymN9SEc1fyfoFqXjmzne6614wbkHFNvrI1pjM9uhgOHICDsE8y8fb9R4z8dNcJ iGhPCCSQuPB20wec2k396h2sINOZ1U4Ss16gpZcIj4/vrUD1J4t2t11275pdy/UORnJo IQyA5LAreZyr8f8gYvXFM4xe1rHbsNw+l8EPfVmSkwcAfFxjKWrDBKGirbWwvmlA+B6r pPOuwgZrCr6HHAGi3QnEPPTFbFkMEAgPpJPEYDN0nn+LQtzzimiHVmyvz2RGXnucK1Vw 9v4g== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1727097488; x=1727702288; h=cc:to:subject:message-id:date:from:in-reply-to:references :mime-version:x-gm-message-state:from:to:cc:subject:date:message-id :reply-to; bh=bklZWdR9uZPvb50Tc424yGLUgA1Exa9YFZdTUN7Bvv8=; b=by0qtBML8RzKKk3UZgiJFz+TrE+IUfBH6gqzc2rNm+qTkg5JDb4AWPoqZBp/hhFWOr ziOy99zud1FacNf/ZQugsDWRTn5ZQxMOCPDbV3B2PNVbX1VMtT+2fME5QhVBj4QEJ6B2 c1hHWSwPGvE86RLZEuufIKf84UbkcAflEeBhHfzPXGZ00cbOxRYPxN0it4t29P78KSie cdIi/HBz1yW4zdzHMyCtFaCKEbHYcCNtyMjcOydQVVbQU+S5ZM6EtBVAbL4hk/NXE6zU /MhabMx8ihCCkkZGOe4c+/fk7OK7fw7d2qDlRsfmhUw7LNWopvZ74OypdGw6rgNe/IvG fDoA== X-Gm-Message-State: AOJu0YxQEAsqiUkVfWAg1lCKroq7WIIBDs75zXLC+kCcab3cspVWPmC3 8Q5fP6Jd96tX+Qgr5pgMDgHhlFAF4STi2jVLelg0eVhlCWKMaqq3RonUTQEyDXHJY9ym/JXBTHM 9E1FwbdAS5FuBbdoSnSu3kzLZUrfHP9xH X-Google-Smtp-Source: AGHT+IHIYafs6zQZ1Xnb5GCmzxYrAeuodtSIvOaEsYnJseY8mJZBJkasTFq0nfylPPVMG/ffH9c5v0nDwB7PA0NDhdM= X-Received: by 2002:a05:6902:1b12:b0:e22:67bb:c7e8 with SMTP id 3f1490d57ef6-e2267bbc87cmr2365924276.38.1727097487130; Mon, 23 Sep 2024 06:18:07 -0700 (PDT) MIME-Version: 1.0 References: <87ikv3o33d.fsf@localhost> <87h6aejf17.fsf@localhost> <87tte8qakc.fsf@localhost> In-Reply-To: <87tte8qakc.fsf@localhost> From: Benjamin McMillan Date: Mon, 23 Sep 2024 22:17:40 +0900 Message-ID: Subject: Re: [BUG] export blocks no longer fontifying [9.7.10 (release_9.7.10 @ /Users/ben/Scripts/emacs/lisp/org/)] To: Ihor Radchenko Cc: emacs-orgmode@gnu.org Content-Type: multipart/alternative; boundary="0000000000003689c90622c93857" Received-SPF: pass client-ip=2607:f8b0:4864:20::b2c; envelope-from=mcmillanbb@gmail.com; helo=mail-yb1-xb2c.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 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, FREEMAIL_FROM=0.001, HTML_MESSAGE=0.001, RCVD_IN_DNSWL_NONE=-0.0001, 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-Queue-Id: 8576A73B7 X-Migadu-Scanner: mx11.migadu.com X-Spam-Score: -9.83 X-Migadu-Spam-Score: -9.83 X-TUID: FHepwUloEUnV --0000000000003689c90622c93857 Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable Thank you! And you are right, I haven't installed java on this computer, and a terminal call to java returns the message "The operation couldn=E2=80=99t b= e completed. Unable to locate a Java Runtime." Is that expected behavior? I'm not very familiar with testing frameworks, but wouldn't expect that the environment should be a source of failed tests like that. If it's not important, we can let the matter rest here. But for future contributions, I would want the regression tests to be providing useful feedback! On Sun, Sep 22, 2024 at 6:51=E2=80=AFPM Ihor Radchenko wrote: > [ 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=3D2a85367= ea8 > > 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 > set > > up properly. > > I cloned the source into a folder that has no relation to my emacs setu= p, > > 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" "") > :value > > 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 2= 4 0 > > "encoded=3DNDI=3D, decoded=3D42" "" first-mismatch-at 0)) > > FAILED ob-java/import_library_inline ((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 2= 4 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) > ("two" > > 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 > nil > > :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 n= il > > :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-leng= th > > 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 > nil > > :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 > nil > > :explanation (different-types ("forty" "two") "")) > > FAILED ob-java/read-return-list-with-package ((should (equal > '("forty" > > "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 n= il > > :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 n= il > > :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" "") :v= alue > > 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" "") :val= ue > 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= nil > > :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 (strin= g=3D > > "42" (org-babel-execute-src-block))) :form (string=3D "42" "") :value n= il > > :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 n= il > > :explanation (arrays-of-different-length 7 0 "success" "" > first-mismatch-at > > 0)) > > FAILED ob-java/simple-with-non-public-class ((should (string=3D "4= 2" > > (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 ni= l > > :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 n= il > > :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 > nil > > :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))")) > :form > > (equal "(%i1) (linenum:0,\n((%GAMMA SIMP) ((MPLUS SIMP) 1 $Z))" "((%GAM= MA > > 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(%o1) > > 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(%o1) > > 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 :explanatio= n > > (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 n= il > > :value nil) > > SKIPPED org-missing-dependency/test-ob-clojure ((skip-unless nil) > :form > > 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) :fo= rm > > nil :value nil) > > SKIPPED org-missing-dependency/test-ob-lua ((skip-unless nil) :form > nil > > :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) :for= m > > 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 ni= l) > > :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-unle= ss > > (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 n= il > > "-c" "declare -A assoc_array")) nil)) :value nil) > > SKIPPED test-org-fold/org-fold-display-inline-images ((skip-unless > (not > > 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 > without > >> > 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 da= te > >> 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 o= f > >> 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 > blocks > > > > * 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-start block-end)) > > (add-text-properties bol-after-beginline block-end > '(src-block t))) > > -- > > 2.46.0 > > > > -- > Ihor Radchenko // yantar92, > Org mode contributor, > Learn more about Org mode at . > Support Org development at , > or support my work at > --0000000000003689c90622c93857 Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
Thank you!
And you are right, I haven't= installed java on this computer, and a terminal call to java returns the m= essage "The operation couldn=E2=80=99t be completed. Unable to locate = a Java Runtime."
Is that expected behavior? I'm not very= familiar with testing frameworks, but wouldn't expect that the environ= ment should be a source of failed tests like that.

=
If it's not important, we can let the matter rest here. But for fu= ture contributions, I would want the regression tests to be providing usefu= l feedback!

On Sun, Sep 22, 2024 at 6:51=E2=80=AFPM Ihor Radchenko <= ;yantar92@posteo.net> wrote:<= br>
[ Adding Org mai= ling list back to CC to keep the conversation public ]

Benjamin McMillan <mcmillanbb@gmail.com> writes:

> Dear Ihor,
> I am happy to make the changes.
> I am not sure what exactly made the last commit message read like a ne= w
> 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.gn= u.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 repos= itory set
> up properly.
> I cloned the source into a folder that has no relation to my emacs set= up,
> 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?

>=C2=A0 =C2=A0 FAILED=C2=A0 test-org-table/sort-lines=C2=A0 ((should (eq= ual "| a | x |\n| B | 4
> |\n| c | 3 |\n" (org-test-with-temp-text "| <point>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 2= 0
> (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&q= uot; "?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:
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/args-quoted-string=C2=A0 ((should (s= tring=3D "forty two\n42\n"
> (org-babel-execute-src-block))) :form (string=3D "forty two\n42\n= " "") :value
> nil :explanation (arrays-of-different-length 13 0 "forty two\n42\= n" ""
> first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/import_library=C2=A0 ((should (strin= g=3D "encoded=3DNDI=3D,
> decoded=3D42" (org-babel-execute-src-block))) :form (string=3D &q= uot;encoded=3DNDI=3D,
> decoded=3D42" "") :value nil :explanation (arrays-of-di= fferent-length 24 0
> "encoded=3DNDI=3D, decoded=3D42" "" first-mismatch= -at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/import_library_inline=C2=A0 ((should= (string=3D "encoded=3DNDI=3D,
> decoded=3D42" (org-babel-execute-src-block))) :form (string=3D &q= uot;encoded=3DNDI=3D,
> decoded=3D42" "") :value nil :explanation (arrays-of-di= fferent-length 24 0
> "encoded=3DNDI=3D, decoded=3D42" "" first-mismatch= -at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/inhomogeneous_table=C2=A0 ((should (= equal '(("forty" 4)
> ("two" 2)) (org-babel-execute-src-block))) :form (equal ((&q= uot;forty" 4) ("two"
> 2)) "") :value nil :explanation (different-types (("for= ty" 4) ("two" 2))
> ""))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/integer-var=C2=A0 ((should (string= =3D "42"
> (org-babel-execute-src-block))) :form (string=3D "42" "= ") :value nil
> :explanation (arrays-of-different-length 2 0 "42" "&quo= t; first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/list-var=C2=A0 ((should (equal '= ("forty" "two")
> (org-babel-execute-src-block))) :form (equal ("forty" "= two") "") :value nil
> :explanation (different-types ("forty" "two") &quo= t;"))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/matrix-var=C2=A0 ((should (equal = 9;((2 4) (1 2))
> (org-babel-execute-src-block))) :form (equal ((2 4) (1 2)) ""= ;) :value nil
> :explanation (different-types ((2 4) (1 2)) ""))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/matrix-var-with-header=C2=A0 ((shoul= d (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&qu= ot;) hline (2 4) (1 2))
> (("")) first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/one-arg=C2=A0 ((should (string=3D &q= uot;fortytwo"
> (org-babel-execute-src-block))) :form (string=3D "fortytwo" = "") :value nil
> :explanation (arrays-of-different-length 8 0 "fortytwo" &quo= t;"
> first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/output-list-with-spaces=C2=A0 ((shou= ld (equal "forty
> two\nforty two\n" (org-babel-execute-src-block))) :form (equal &q= uot;forty
> two\nforty two\n" "") :value nil :explanation (arrays-o= f-different-length
> 20 0 "forty two\nforty two\n" "" first-mismatch-at= 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/output-table-with-header=C2=A0 ((sho= uld (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&q= uot; ""
> first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/read-list-return-array=C2=A0 ((shoul= d (equal '("forty" "two")
> (org-babel-execute-src-block))) :form (equal ("forty" "= two") "") :value nil
> :explanation (different-types ("forty" "two") &quo= t;"))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/read-return-list=C2=A0 ((should (equ= al '("forty" "two")
> (org-babel-execute-src-block))) :form (equal ("forty" "= two") "") :value nil
> :explanation (different-types ("forty" "two") &quo= t;"))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/read-return-list-with-package=C2=A0 = ((should (equal '("forty"
> "two") (org-babel-execute-src-block))) :form (equal ("f= orty" "two") "")
> :value nil :explanation (different-types ("forty" "two&= quot;) ""))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/return-vector-using-array=C2=A0 ((sh= ould (equal '((4) (2))
> (org-babel-execute-src-block))) :form (equal ((4) (2)) (("")= )) :value nil
> :explanation (proper-lists-of-different-length 2 1 ((4) (2)) (("&= quot;))
> first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/return-vector-using-list=C2=A0 ((sho= uld (equal '((4) (2))
> (org-babel-execute-src-block))) :form (equal ((4) (2)) (("")= )) :value nil
> :explanation (proper-lists-of-different-length 2 1 ((4) (2)) (("&= quot;))
> first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/simple=C2=A0 ((should (string=3D &qu= ot;42"
> (org-babel-execute-src-block))) :form (string=3D "42" "= ") :value nil
> :explanation (arrays-of-different-length 2 0 "42" "&quo= t; first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/simple-dir=C2=A0 ((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" "") :value
> nil :explanation (arrays-of-different-length 2 0 "42" "= " first-mismatch-at
> 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/simple-dir-with-package=C2=A0 ((shou= ld (string=3D "42"
> (unwind-protect (org-babel-execute-src-block) (delete-file (concat ...=
> "pkg/Main.java")) (delete-file (concat ... "pkg/Main.cl= ass"))
> (delete-directory (concat ... "pkg"))))) :form (string=3D &q= uot;42" "") :value nil
> :explanation (arrays-of-different-length 2 0 "42" "&quo= t; first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/simple-return-float=C2=A0 ((should (= equal 42.0
> (org-babel-execute-src-block))) :form (equal 42.0 "") :value= nil
> :explanation (different-types 42.0 ""))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/simple-return-int=C2=A0 ((should (eq= 42
> (org-babel-execute-src-block))) :form (eq 42 "") :value nil)=
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/simple-return-string=C2=A0 ((should = (string=3D "forty two"
> (org-babel-execute-src-block))) :form (string=3D "forty two"= "") :value nil
> :explanation (arrays-of-different-length 9 0 "forty two" &qu= ot;"
> first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/simple-with-bracket=C2=A0 ((should (= string=3D "[42"
> (org-babel-execute-src-block))) :form (string=3D "[42" "= ;") :value nil
> :explanation (arrays-of-different-length 3 0 "[42" "&qu= ot; first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/simple-with-class=C2=A0 ((should (st= ring=3D "42"
> (org-babel-execute-src-block))) :form (string=3D "42" "= ") :value nil
> :explanation (arrays-of-different-length 2 0 "42" "&quo= t; first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/simple-with-class-and-package=C2=A0 = ((should (string=3D "42"
> (org-babel-execute-src-block))) :form (string=3D "42" "= ") :value nil
> :explanation (arrays-of-different-length 2 0 "42" "&quo= t; first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/simple-with-class-attr=C2=A0 ((shoul= d (string=3D "42"
> (org-babel-execute-src-block))) :form (string=3D "42" "= ") :value nil
> :explanation (arrays-of-different-length 2 0 "42" "&quo= t; first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/simple-with-class-attr-with-package= =C2=A0 ((should (string=3D
> "42" (org-babel-execute-src-block))) :form (string=3D "= 42" "") :value nil
> :explanation (arrays-of-different-length 2 0 "42" "&quo= t; first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/simple-with-main=C2=A0 ((should (str= ing=3D "42"
> (org-babel-execute-src-block))) :form (string=3D "42" "= ") :value nil
> :explanation (arrays-of-different-length 2 0 "42" "&quo= t; first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/simple-with-main-args-array=C2=A0 ((= should (string=3D "42"
> (org-babel-execute-src-block))) :form (string=3D "42" "= ") :value nil
> :explanation (arrays-of-different-length 2 0 "42" "&quo= t; first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/simple-with-main-whitespace=C2=A0 ((= should (string=3D "42"
> (org-babel-execute-src-block))) :form (string=3D "42" "= ") :value nil
> :explanation (arrays-of-different-length 2 0 "42" "&quo= t; first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/simple-with-no-main=C2=A0 ((should (= string=3D "success"
> (org-babel-execute-src-block))) :form (string=3D "success" &= quot;") :value nil
> :explanation (arrays-of-different-length 7 0 "success" "= ;" first-mismatch-at
> 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/simple-with-non-public-class=C2=A0 (= (should (string=3D "42"
> (org-babel-execute-src-block))) :form (string=3D "42" "= ") :value nil
> :explanation (arrays-of-different-length 2 0 "42" "&quo= t; first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/simple-with-quote=C2=A0 ((should (st= ring=3D "\"42\""
> (org-babel-execute-src-block))) :form (string=3D "\"42\"= ;" "") :value nil
> :explanation (arrays-of-different-length 4 0 "\"42\"&qu= ot; "" first-mismatch-at
> 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/simple-with-two-methods=C2=A0 ((shou= ld (string=3D "42"
> (org-babel-execute-src-block))) :form (string=3D "42" "= ") :value nil
> :explanation (arrays-of-different-length 2 0 "42" "&quo= t; first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/string-var=C2=A0 ((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 t= wo, len=3D9"
> "" first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/two-vars=C2=A0 ((should (string=3D &= quot;42"
> (org-babel-execute-src-block))) :form (string=3D "42" "= ") :value nil
> :explanation (arrays-of-different-length 2 0 "42" "&quo= t; first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/var-with-class=C2=A0 ((should (strin= g=3D "42"
> (org-babel-execute-src-block))) :form (string=3D "42" "= ") :value nil
> :explanation (arrays-of-different-length 2 0 "42" "&quo= t; first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/var-with-class-and-hanging-curlies= =C2=A0 ((should (string=3D
> "42" (org-babel-execute-src-block))) :form (string=3D "= 42" "") :value nil
> :explanation (arrays-of-different-length 2 0 "42" "&quo= t; first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/var-with-class-and-package=C2=A0 ((s= hould (string=3D "42"
> (org-babel-execute-src-block))) :form (string=3D "42" "= ") :value nil
> :explanation (arrays-of-different-length 2 0 "42" "&quo= t; first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/var-with-main=C2=A0 ((should (string= =3D "42"
> (org-babel-execute-src-block))) :form (string=3D "42" "= ") :value nil
> :explanation (arrays-of-different-length 2 0 "42" "&quo= t; first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-java/vector-var=C2=A0 ((should (equal = 9;("forty" "two")
> (org-babel-execute-src-block))) :form (equal ("forty" "= two") "") :value nil
> :explanation (different-types ("forty" "two") &quo= t;"))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-maxima/batch+verbatim=C2=A0 ((should (equ= al
> (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,i= nf))\n
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0gamma(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,i= nf))\n
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0gamma(z + 1)" first-mismatch-at 1))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-maxima/batch+verbatim+:lisp=C2=A0 ((shoul= d (equal
> (org-babel-execute-src-block) "((%GAMMA SIMP) ((MPLUS SIMP) 1 $Z)= )")) :form
> (equal "(%i1) (linenum:0,\n((%GAMMA SIMP) ((MPLUS SIMP) 1 $Z))&qu= ot; "((%GAMMA
> SIMP) ((MPLUS SIMP) 1 $Z))") :value nil :explanation
> (arrays-of-different-length 53 35 "(%i1) (linenum:0,\n((%GAMMA SI= MP)
> ((MPLUS SIMP) 1 $Z))" "((%GAMMA SIMP) ((MPLUS SIMP) 1 $Z))&q= uot;
> first-mismatch-at 1))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-maxima/batch+verbatim+empty-string=C2=A0 = ((should (equal
> (org-babel-execute-src-block) "(%i1) \"\"\n(%o1) "= )) :form (equal "(%i1)
> (linenum:0,\n(%i1) \"\"\n(%o1) " "(%i1) \"\&q= uot;\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))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-maxima/batch+verbatim+empty-string-vq=C2= =A0 ((should (equal
> (org-babel-execute-src-block) "\"\"\n ")) :form (e= qual "(linenum:0,\n\"\"\n
> " "\"\"\n ") :value nil :explanation (arrays-= of-different-length 16 4
> "(linenum:0,\n\"\"\n " "\"\"\n &quo= t; first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-maxima/batch+verbatim+quiet=C2=A0 ((shoul= d (equal
> (org-babel-execute-src-block) "(%i1) (assume(z >
> 0),integrate(exp(-t)*t^z,t,0,inf))\n(%o1)
>=C2=A0 gamma(z + 1)")) :form (equal "(%i1) (linenum:0,\n(%i1)= (assume(z >
> 0),integrate(exp(-t)*t^z,t,0,inf))\n(%o1)
>=C2=A0 gamma(z + 1)" "(%i1) (assume(z > 0),integrate(exp(-= t)*t^z,t,0,inf))\n(%o1)
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 gamma(z + 1)") :value nil :explanation
> (arrays-of-different-length 116 98 "(%i1) (linenum:0,\n(%i1) (ass= ume(z >
> 0),integrate(exp(-t)*t^z,t,0,inf))\n(%o1)
>=C2=A0 gamma(z + 1)" "(%i1) (assume(z > 0),integrate(exp(-= t)*t^z,t,0,inf))\n(%o1)
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 gamma(z + 1)" first-mismatch-at 7))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-maxima/batch+verbatim+whitespace-string= =C2=A0 ((should (equal
> (org-babel-execute-src-block) "(%i1) \" \"\n(%o1)
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0")) :form (equal "(%i1) (li= nenum:0,\n(%i1) \" \"\n(%o1)
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0" "(%i1) \" \"\n(%o1)
>=C2=A0 =C2=A0") :value nil :explanation (arrays-of-different-lengt= h 68 50 "(%i1)
> (linenum:0,\n(%i1) \" \"\n(%o1)=C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0" "(%i1)
> \" \"\n(%o1)=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0= =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0" first-mismatch-at 6))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-maxima/integer-input=C2=A0 ((should (equa= l 4
> (org-babel-execute-src-block))) :form (equal 4 (("(linenum:0,&quo= t;) (4)))
> :value nil :explanation (different-types 4 (("(linenum:0,") = (4))))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-maxima/list-input=C2=A0 ((should (equal &= quot;[2, [2, 3], 4] "
> (org-babel-execute-src-block))) :form (equal "[2, [2, 3], 4] &quo= t;
> "(linenum:0,\n[2, [2, 3], 4] ") :value nil :explanation
> (arrays-of-different-length 15 27 "[2, [2, 3], 4] " "(l= inenum:0,\n[2, [2,
> 3], 4] " first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-maxima/matrix-output=C2=A0 ((should (equa= l '((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))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-maxima/simple-list-input=C2=A0 ((should (= equal "[1, 2, 3] "
> (org-babel-execute-src-block))) :form (equal "[1, 2, 3] " &q= uot;(linenum:0,\n[1,
> 2, 3] ") :value nil :explanation (arrays-of-different-length 10 2= 2 "[1, 2,
> 3] " "(linenum:0,\n[1, 2, 3] " first-mismatch-at 0)) >=C2=A0 =C2=A0 FAILED=C2=A0 ob-maxima/string-input=C2=A0 ((should (equal= "- sin(x)"
> (org-babel-execute-src-block))) :form (equal "- sin(x)" ((&q= uot;(linenum:0," "")
> ("-" "sin(x)"))) :value nil :explanation (differen= t-types "- sin(x)"
> (("(linenum:0," "") ("-" "sin(x)&qu= ot;))))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-maxima/table-input1=C2=A0 ((should (equal= "[[2.0], [3.0]] "
> (org-babel-execute-src-block))) :form (equal "[[2.0], [3.0]] &quo= t;
> "(linenum:0,\n[[2.0], [3.0]] ") :value nil :explanation
> (arrays-of-different-length 15 27 "[[2.0], [3.0]] " "(l= inenum:0,\n[[2.0],
> [3.0]] " first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 ob-maxima/table-input2=C2=A0 ((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]] " "(lin= enum:0,\n[[2.0,
> 3.0]] " first-mismatch-at 0))
>=C2=A0 =C2=A0 FAILED=C2=A0 test-org-table/sort-lines=C2=A0 ((should (eq= ual "| a | x |\n| B | 4
> |\n| c | 3 |\n" (org-test-with-temp-text "| <point>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 2= 0
> (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&q= uot; "?a") (66
> "#x42" "?B"))))
>
> 13 skipped results:
>=C2=A0 =C2=A0SKIPPED=C2=A0 org-missing-dependency/test-ob-R=C2=A0 ((ski= p-unless nil) :form nil
> :value nil)
>=C2=A0 =C2=A0SKIPPED=C2=A0 org-missing-dependency/test-ob-clojure=C2=A0= ((skip-unless nil) :form
> nil :value nil)
>=C2=A0 =C2=A0SKIPPED=C2=A0 org-missing-dependency/test-ob-haskell-ghci= =C2=A0 ((skip-unless nil)
> :form nil :value nil)
>=C2=A0 =C2=A0SKIPPED=C2=A0 org-missing-dependency/test-ob-julia=C2=A0 (= (skip-unless nil) :form
> nil :value nil)
>=C2=A0 =C2=A0SKIPPED=C2=A0 org-missing-dependency/test-ob-lua=C2=A0 ((s= kip-unless nil) :form nil
> :value nil)
>=C2=A0 =C2=A0SKIPPED=C2=A0 org-missing-dependency/test-ob-octave=C2=A0 = ((skip-unless nil) :form
> nil :value nil)
>=C2=A0 =C2=A0SKIPPED=C2=A0 org-missing-dependency/test-ob-python=C2=A0 = ((skip-unless nil) :form
> nil :value nil)
>=C2=A0 =C2=A0SKIPPED=C2=A0 org-missing-dependency/test-ob-ruby=C2=A0 ((= skip-unless nil) :form
> nil :value nil)
>=C2=A0 =C2=A0SKIPPED=C2=A0 org-missing-dependency/test-ob-scheme=C2=A0 = ((skip-unless nil) :form
> nil :value nil)
>=C2=A0 =C2=A0SKIPPED=C2=A0 org-missing-dependency/test-org-attach-git= =C2=A0 ((skip-unless nil)
> :form nil :value nil)
>=C2=A0 =C2=A0SKIPPED=C2=A0 test-ob-shell/bash-uses-assoc-arrays=C2=A0 (= (skip-unless (if-let
> ((bash (executable-find "bash"))) (eq 0 (process-file bash n= il nil nil "-c"
> "declare -A assoc_array")))) :form (let* ((bash (and t (exec= utable-find
> "bash")))) (if bash (eq 0 (process-file bash nil nil nil &qu= ot;-c" "declare -A
> assoc_array")) nil)) :value nil)
>=C2=A0 =C2=A0SKIPPED=C2=A0 test-ob-shell/bash-uses-assoc-arrays-with-li= sts=C2=A0 ((skip-unless
> (if-let ((bash (executable-find "bash"))) (eq 0 (process-fil= e bash nil nil
> nil "-c" "declare -A assoc_array")))) :form (let* = ((bash (and t
> (executable-find "bash")))) (if bash (eq 0 (process-file bas= h nil nil nil
> "-c" "declare -A assoc_array")) nil)) :value nil)<= br> >=C2=A0 =C2=A0SKIPPED=C2=A0 test-org-fold/org-fold-display-inline-images= =C2=A0 ((skip-unless (not
> noninteractive)) :form (not t) :value nil)
>
> make: *** [test] Error 1
>
>
>
>
>
>
> On Wed, Sep 18, 2024 at 3:43=E2=80=AFAM Ihor Radchenko <yantar92@posteo.net> w= rote:
>
>> Benjamin McMillan <mcmillanbb@gmail.com> writes:
>>
>> > I attach the patch here.
>>
>> Thanks!
>>
>> > However, I have two questions.
>> > First, I am not certain that I set up the repository correctl= y, because
>> > when I run "make test" it generates 55 unexpected f= ailures. This without
>> > 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 ou= t 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 docstr= ing for
>> > `org-src-fontify-natively' to explicitly state that it en= able
>> 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 a= nd
>> documenting this is a bit tricky.
>>
>> --
>> Ihor Radchenko // yantar92,
>> Org mode contributor,
>> Learn more about Org mode at <https://orgmode.org/>.
>> Support Org development at <https://liberapay.com/org-mode= >,
>> or support my work at <https://liberapay.com/yantar92&= gt;
>>
> From c245df2136778fd34d3ed263208331ca4e35e54d Mon Sep 17 00:00:00 2001=
> From: Benjamin McMillan <mcmillanbb@gmail.com>
> Date: Fri, 20 Sep 2024 23:43:55 +0900
> Subject: [PATCH] lisp/org.el: Add "export" to list of native= fontified blocks
>
> * lisp/org.el (org-fontify-meta-lines-and-blocks-1): Add "export&= quot; 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
> ---
>=C2=A0 lisp/org.el | 12 ++++++------
>=C2=A0 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 #."
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(org-remove-flyspell-overlays-= in nl-before-endline end-of-endline)
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (cond
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 ((and org-src-fontify-nativel= y
> -=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0= ;; Technically, according to
> +=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0= ;; Technically, according to the
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0;; `org-src-fontify-natively' docstring, we should
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0;; only fontify src blocks.=C2=A0 However, it is common
> -=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0= ;; to use undocumented fontification of example
> -=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0= ;; blocks with undocumented language specifier.
> -=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0= ;; Keep this undocumented feature for user
> -=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0= ;; convenience.
> -=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0= (member block-type '("src" "example")))
> +=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0= ;; to use undocumented fontification of export and
> +=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0= ;; example blocks. (The latter which do not support a
> +=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0= ;; language specifier.) Keep this undocumented feature
> +=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0= ;; for user convenience.
> +=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0= (member block-type '("src" "export" "example&q= uot;)))
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(save-match-data
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (org-src= -font-lock-fontify-block (or lang "") block-start block-end))
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(add-text-properties bo= l-after-beginline block-end '(src-block t)))
> --
> 2.46.0
>

--
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at <https://orgmode.org/>.
Support Org development at <https://liberapay.com/org-mode>,=
or support my work at <https://liberapay.com/yantar92>
--0000000000003689c90622c93857--