5

Bob Glickstein 在“编写 GNU Emacs 扩展”第 3 章中描述了一种建议滚动功能的方法。（他建议让它们可逆，所以我们必须在滚动之前保存状态。）

例如，对于向上滚动命令，此建议是这样完成的

(defadvice scroll-up-command (before reversibilate activate compile)
   "If it wants to be reversible, it must save the former state."
   (save-before-scroll))

好。我当然必须对所有滚动命令执行此操作。所以我想对它们进行排序，并想一起为它们提供建议。

(setq reversible-scroll-commands 
  [scroll-up-command 
   scroll-down-command 
   scroll-left-command 
   scroll-right-command])

（我使用一个向量来保存 5 个引号。）

但现在我被困住了。

(mapcar 
  (lambda (fun-name)
    (defadvice fun-name (before reversibilate activate compile)
       "If it wants to be reversible, it must save the former state."
       (save-before-scroll)))
   reversible-scroll-commands)

将建议（不存在的）函数 fun-name 四次，因为 defadvice 是一个宏，并且不评估 fun-name。

有什么办法吗？

（我正在使用 Emacs 24）

4

1 回答 1

3

未经测试：

(mapcar 
  (lambda (fun-name)
    (eval `(defadvice ,fun-name (before reversibilate activate compile)
             "If it wants to be reversible, it must save the former state."
             (save-before-scroll))))
   reversible-scroll-commands)

请参阅elisp 手册中关于反引号的部分。

于 2012-07-05T09:03:32.997 回答