[PATCH] Fix Emacs-26 compatibility (was: Re: [BUG] org-element loading fails with "regexp" argument not "stringp")

[Max Nikulin]

On 05/07/2023 17:35, Ihor Radchenko wrote:
> However, you will see many more failures with Emacs 26 on the latest
> main.

With the couple of attached patches the only failing test is

Test test-org/delete-indentation backtrace:
  signal(wrong-number-of-arguments ((0 . 1) 3))
  apply(signal (wrong-number-of-arguments ((0 . 1) 3)))
  (setq value-20142 (apply fn-20140 args-20141))
  (unwind-protect (setq value-20142 (apply fn-20140 args-20141)) (setq
  (if (unwind-protect (setq value-20142 (apply fn-20140 args-20141)) (
  (let (form-description-20144) (if (unwind-protect (setq value-20142
  (let ((value-20142 (quote ert-form-evaluation-aborted-20143))) (let
  (let* ((fn-20140 (function equal)) (args-20141 (condition-case err (
  (closure (t) nil (let* ((fn-20140 (function equal)) (args-20141 (con
  ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
  ert-run-test(#s(ert-test :name test-org/delete-indentation :document
  ert-run-or-rerun-test(#s(ert--stats :selector "\\(org\\|ob\\|ox\\)"
  ert-run-tests("\\(org\\|ob\\|ox\\)" #f(compiled-function (event-type
  ert-run-tests-batch("\\(org\\|ob\\|ox\\)")
  ert-run-tests-batch-and-exit("\\(org\\|ob\\|ox\\)")
  (let ((org-id-track-globally t) (org-test-selector (if org-test-sele
  org-test-run-batch-tests("\\(org\\|ob\\|ox\\)")
  eval((org-test-run-batch-tests org-test-select-re))
  command-line-1(("--eval" "(setq vc-handled-backends nil org-startup-
  command-line()
  normal-top-level()
Test test-org/delete-indentation condition:
    (wrong-number-of-arguments
     (0 . 1)
     3)
   FAILED   935/1069  test-org/delete-indentation

0001-org-element.el-Fix-Emacs-26-compatibility.patch
Description: Text Data

0002-org-compat.el-Define-flatten-tree-for-Emacs-26-compa.patch
Description: Text Data