Emacs 如何将函数作为参数传递给elisp中的?
我试图在elisp中将一种方法传递给另一种方法,然后 让那个方法执行它。以下是一个例子:Emacs 如何将函数作为参数传递给elisp中的?,emacs,elisp,Emacs,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) 首先,我不确定将函数命名为t是否有帮助,因为在lisp中使用了“t” 也就是说,以下代码对我有效: (defun t
(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)
首先,我不确定将函数命名为
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”的用法,它会触发实际的函数调用。中“”结尾的注释说,您可以用
#“
而不是”
引用函数,以向字节编译器发出信号,表示符号始终命名函数。以上答案是可以的,但您可以使用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++))
)
)
是的,您肯定希望避免尝试使用符号
t
和nil
作为任何东西的名称。(当然,除了它们自己——对它们求值会返回相同的符号。)当然,在这种情况下,func调用者
函数是多余的,除非您需要它在每次这样的函数调用时求值一些额外的代码。