提问人：oneself 提问时间：10/18/2008 更新时间：1/7/2021 访问量：7674
如何在elisp中将函数作为参数传递给？
How do I pass a function as a parameter to in elisp?
问：
我正在尝试在elisp中将一种方法传递给另一种方法，然后 让该方法执行它。下面是一个示例：
(defun t1 ()
"t1")
(defun t2 ()
"t1")
(defun call-t (t)
; how do I execute "t"?
(t))
; How do I pass in method reference?
(call-t 't1)
答：
34赞
Timo Geusch
10/18/2008
#1
首先，我不确定命名您的函数是否有帮助，因为“t”在 lisp 中用作真值。t
也就是说，以下代码对我有用：
(defun test-func-1 () "test-func-1"
(interactive "*")
(insert-string "testing callers"))
(defun func-caller (callee)
"Execute callee"
(funcall callee))
(func-caller 'test-func-1)
请注意 'funcall' 的使用，它会触发实际的函数调用。
评论
2赞
SamB
3/5/2011
是的，您肯定希望避免尝试使用符号并作为任何事物的名称。（当然，除了他们自己——评估它们会产生相同的符号。tnil
0赞
phils
6/22/2012
当然，在这种情况下，该函数是多余的，除非您需要它在每次此类函数调用时评估一些其他代码。func-caller
6赞
Jouni K. Seppänen
10/23/2008
#2
Emacs Lisp 手册中“§13.7 匿名函数”末尾的注释说，你可以引用函数，而不是向字节编译器发出信号，表明符号总是命名一个函数。#''
0赞
Víctor Ponce
9/3/2020
#3
上面的答案是好的，但是你可以用defmacro做一些更有趣的事情，稍后会出于某种原因评估函数：
(defun n1 ()
"n1")
(defmacro call-n (n)
(apply n))
(call-n (n1))
一个带有 for 循环的实际示例，该循环采用任意数量的函数及其参数：
(defmacro for (i &optional i++ &rest body)
"c-like for-loop"
(unless (numberp i++) (push i++ body) (setq i++ 1))
(while (/= i 0)
(let ((args 0))
(while (nth args body)
(apply (car (nth args body))
(cdr (nth args body)))
(setq args (1+ args))))
(setq i (- i i++))
)
)
评论