Использование flyspell в текущем дереве организационного режима

Я пытаюсь написать небольшую функцию lisp для запуска 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

Любые идеи?

emacs org-mode

Julian 23.04.2012 источник

arrow_upward
6
arrow_downward

Вам нужно предоставить beg и end для flyspell-region, чтобы он работал правильно. Ошибка исходит из этого, а не из вашей функции.

Если вы включите (point) и (mark) в качестве аргументов для flyspell-region, он будет работать правильно.

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

Jonathan Leech-Pepin 23.04.2012