在当前组织模式树中使用flyspell

Question

我正在尝试编写一个小的lisp函数来在单个org-mode分支中运行flyspell。我已将此添加到我的.emacs文件中：

(defun flyspell-current-tree()
  (interactive)
  (org-mark-subtree)
  (flyspell-region))

(global-set-key (kbd "S-<f8>") 'flyspell-current-tree)

但是在运行时我收到以下错误：

flyspell-current-tree: Wrong number of arguments

有什么想法吗？

Answer 1

您需要向beg提供end和flyspell-region才能使其正常运行。错误来自于此而非实际来自您的函数。

如果您将(point)和(mark)作为flyspell-region的参数包含在内，那么它将正常运作。

(defun flyspell-current-tree()
  (interactive)
  (org-mark-subtree)
  (flyspell-region (point) (mark)))