Subject: bug#71566: 30.0.50; test-custom-opts shows errors

From: Michael Albinus <[email-masked]>
Date: Sat, 15 Jun 2024 16:24:09 +0200

Ihor Radchenko <[email-masked]> writes:

>> Ihor, please fix the problem in Org.
>
> Fixed, on bugfix.
> https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?h=bugfix&id=a9a05dab81eb4e7d6c74bb9755d50c08973f00d1

--8<---------------cut here---------------start------------->8---
diff --git a/lisp/org-src.el b/lisp/org-src.el
 index d152fbf..262bd46 100644
 --- a/lisp/org-src.el
 +++ b/lisp/org-src.el
 @@ -241,8 +241,8 @@ but the mode to use is `tuareg-mode'."
 :package-version '(Org . "9.7")
 :type '(repeat
 (cons
 - (string "Language name")
 - (symbol "Major mode"))))
 + (string :tag "Language name")
 + (symbol :tag "Major mode"))))
 (defcustom org-src-block-faces nil
 "Alist of faces to be used for source-block.
--8<---------------cut here---------------end--------------->8---

I don't believe this fixes it. The error shows

--8<---------------cut here---------------start------------->8---
variable: org-src-lang-modes
   value: (("lilypond" . "LilyPond") ("C" . c) ("C++" . c++) ("asymptote" . asy) ("beamer" . latex) ("calc" . fundamental) ("cpp" . c++) ("ditaa" . artist) ("desktop" . conf-desktop) ("dot" . fundamental) ("elisp" . emacs-lisp) ("ocaml" . tuareg) ("screen" . shell-script) ("sqlite" . sql) ("toml" . conf-toml) ("shell" . sh) ("ash" . sh) ("sh" . sh) ("bash" . sh) ("jsh" . sh) ("bash2" . sh) ("dash" . sh) ("dtksh" . sh) ("ksh" . sh) ("es" . sh) ("rc" . sh) ("itcsh" . sh) ("tcsh" . sh) ("jcsh" . sh) ("csh" . sh) ("ksh88" . sh) ("oash" . sh) ("pdksh" . sh) ("mksh" . sh) ("posix" . sh) ("wksh" . sh) ("wsh" . sh) ("zsh" . sh) ("rpm" . sh))
    type: (repeat (cons (string "Language name") (symbol "Major mode")))
--8<---------------cut here---------------end--------------->8---

I suppose, the cdr in ("lilypond" . "LilyPond") must be a symbol, not a
string.

Best regards, Michael.