在当前组织模式树中使用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)))