报错： Wrong type argument: listp, [X] modus-operandi

[hour-keeper]

删除默认 private.org 的 * Theme 部分后工作正常，请问这段代码应该怎么改 默认 private.org 下 emacs -nw --debug-init 输出是

  car("[X] modus-operandi")
  mapcar(car ("[X] modus-operandi" "[X] modus-vivendi"))
  (cl-remove-if-not #'(lambda (s) (string-prefix-p "[X] " s)) (mapcar 'car themes))
  (mapcar #'(lambda (s) (intern (substring s 4))) (cl-remove-if-not #'(lambda (s) (string-prefix-p "[X] " s)) (mapcar 'car themes)))
  (setq meomacs-themes (mapcar #'(lambda (s) (intern (substring s 4))) (cl-remove-if-not #'(lambda (s) (string-prefix-p "[X] " s)) (mapcar 'car themes))))
  (let ((themes '("[X] modus-operandi" "[X] modus-vivendi"))) (setq meomacs-themes (mapcar #'(lambda (s) (intern (substring s 4))) (cl-remove-if-not #'(lambda (s) (string-prefix-p "[X] " s)) (mapcar $
  eval-buffer(#<buffer  *load*-42602> nil "/home/loke/.emacs.d/tangle/private.el" nil t)  ; Reading at buffer position 3990                                                                             
  load-with-code-conversion("/home/loke/.emacs.d/tangle/private.el" "/home/loke/.emacs.d/tangle/private.el" nil nil)
  load("/home/loke/.emacs.d/tangle/private.el" nil nil t)
  load-file("/home/loke/.emacs.d/tangle/private.el")
  (progn (make-directory tangle-dir t) (if (or force-tangle (not (file-exists-p target))) (progn (require 'org) (require 'ob) (org-babel-tangle-file source target))) (load-file target))
  (if (file-exists-p source) (progn (make-directory tangle-dir t) (if (or force-tangle (not (file-exists-p target))) (progn (require 'org) (require 'ob) (org-babel-tangle-file source target))) (load-$
  (let* ((source (expand-file-name (format "%s.org" config-name) user-emacs-directory)) (tangle-dir (expand-file-name "tangle" user-emacs-directory)) (target (expand-file-name (format "%s.el" config-$
  meomacs-load-config("private")
  eval-buffer(#<buffer  *load*> nil "/home/loke/.emacs.d/early-init.el" nil t)  ; Reading at buffer position 2188                                                                                       
  load-with-code-conversion("/home/loke/.emacs.d/early-init.el" "/home/loke/.emacs.d/early-init.el" t t)
  load("/home/loke/.emacs.d/early-init" noerror nomessage)
  startup--load-user-init-file(#f(compiled-function () #<bytecode -0x1873941f39170d90>))
  command-line()
  normal-top-level()

[DogLooksGood]

Emacs 版本是？

[hour-keeper]

Arch Linux emacs 29.1-4

[hour-keeper]

windows 官方版的 29.1 也出现相似的报错

Debugger entered--Lisp error: (wrong-type-argument listp "[X] modus-operandi")
  car("[X] modus-operandi")
  mapcar(car ("[X] modus-operandi" "[X] modus-vivendi"))
  (cl-remove-if-not #'(lambda (s) (string-prefix-p "[X] " s)) (mapcar 'car themes))
  (mapcar #'(lambda (s) (intern (substring s 4))) (cl-remove-if-not #'(lambda (s) (string-prefix-p "[X] " s)) (mapcar 'car themes)))
  (setq meomacs-themes (mapcar #'(lambda (s) (intern (substring s 4))) (cl-remove-if-not #'(lambda (s) (string-prefix-p "[X] " s)) (mapcar 'car themes))))
  (let ((themes '("[X] modus-operandi" "[X] modus-vivendi"))) (setq meomacs-themes (mapcar #'(lambda (s) (intern (substring s 4))) (cl-remove-if-not #'(lambda (s) (string-prefix-p "[X] " s)) (mapcar 'car themes)))))
  load-with-code-conversion("c:/Users/loke/.emacs.d/tangle/private.el" "c:/Users/loke/.emacs.d/tangle/private.el" nil nil)
  load-file("c:/Users/loke/.emacs.d/tangle/private.el")
  (progn (make-directory tangle-dir t) (if (or force-tangle (not (file-exists-p target))) (progn (require 'org) (require 'ob) (org-babel-tangle-file source target))) (load-file target))
  (if (file-exists-p source) (progn (make-directory tangle-dir t) (if (or force-tangle (not (file-exists-p target))) (progn (require 'org) (require 'ob) (org-babel-tangle-file source target))) (load-file target)))
  (let* ((source (expand-file-name (format "%s.org" config-name) user-emacs-directory)) (tangle-dir (expand-file-name "tangle" user-emacs-directory)) (target (expand-file-name (format "%s.el" config-name) tangle-dir))) (if (file-exists-p source) (progn (make-directory tangle-dir t) (if (or force-tangle (not (file-exists-p target))) (progn (require 'org) (require 'ob) (org-babel-tangle-file source target))) (load-file target))))
  meomacs-load-config("private")
  load-with-code-conversion("c:/Users/loke/.emacs.d/early-init.el" "c:/Users/loke/.emacs.d/early-init.el" t t)
  load("c:/Users/loke/.emacs.d/early-init" noerror nomessage)
  startup--load-user-init-file(#f(compiled-function () #<bytecode -0x1873941f3910a650>))
  command-line()
  normal-top-level()

[DogLooksGood]

Try again

[hour-keeper]

目前已在 Arch Linux 和 Termux 上正常运行，Windows 上网不太好没测出来