将变量名合并到 `dolist` 循环中并更改其值

Question

我正在尝试将 buffer-local 变量的名称合并到 dolist 循环中，并更改该 buffer-local 变量的值。 setq 和 setq-local 拒绝我尝试过的所有变量名称变体。在dolist循环中，变量名为(car (car (cdr test)))。

相同的变量名将用于多个缓冲区，每个缓冲区具有不同的值。

这个项目与我最近的其他两 (2) 个线程相关，但我相信这是一个有点独特的问题。相关线程如下：How to use `setcdr` with buffer-local variables 和 How to use a cons cell to define and later remove overlays with `dolist`

我尝试了以下所有方法以及其他一些变体，但均未成功：

(setq (car (car (cdr test))) newlist)

(setq var newlist)

(setq (make-symbol (car (car (cdr test)))) newlist)

(setq (intern (car (car (cdr test)))) newlist)

我也尝试过修改列表以使用字符串，例如'("variable-one" ,variable-one)

---

这是测试代码：

(defvar variable-one '(a t))

(make-variable-buffer-local 'variable-one)

(defvar variable-two '(c t))

(make-variable-buffer-local 'variable-two)

(defvar variable-three '(e t))

(make-variable-buffer-local 'variable-three)

(dolist (test `(
    '(variable-one ,variable-one)
    '(variable-two ,variable-two)
    '(variable-three ,variable-three) ))
  (let* (
      (var (car (car (cdr test))))
      (newlist (copy-list (car (cdr (car (cdr test)))))) )
    (setcdr newlist nil)
    (message "var: %s | newlist: %s" var newlist)
    ;; (setq (car (car (cdr test))) newlist)
  ))

---

编辑（2014 年 8 月 26 日）：以下修订基于此线程中每个人提供的有用建议 - 非常感谢！ :) 今天晚些时候我仍然需要对多个缓冲区进行一些缓冲区本地测试，但论坛参与者提出的建议似乎与下面的测试大纲一致。

(defvar variable-one '(a t))

(make-variable-buffer-local 'variable-one)

(defvar variable-two '(c t))

(make-variable-buffer-local 'variable-two)

(defvar variable-three '(e t))

(make-variable-buffer-local 'variable-three)

(dolist (test `(
    (variable-one ,variable-one)
    (variable-two ,variable-two)
    (variable-three ,variable-three) ))
  (let* (
      (var (car test))
      (newlist (copy-list (car (cdr test)))) )
    (setcdr newlist nil)
    (message "var: %s | newlist: %s" var newlist)
    (set (car test) newlist) ))

Answer 1

我不知道你所说的“dolist cycle”是什么意思。

问题的根源在于setq 是一种特殊形式。第一个参数不需要被引用——这就是“q”的意思。

您想改用set。