Utilizzo di flyspell nell'albero in modalità org attuale

Question

Sto provando a scrivere una piccola funzione lisp per eseguire flyspell in un singolo ramo org-mode. Ho aggiunto questo al mio file .emacs:

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

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

Ma quando eseguirlo ottengo il seguente errore:

flyspell-current-tree: Wrong number of arguments 

Tutte le idee?

Answer 1

È necessario fornire beg e end a flyspell-region affinché funzioni correttamente. L'errore viene da quello e non in realtà dalla tua funzione.

Se si includono (point) e (mark) come argomenti su flyspell-region, funzionerà correttamente.

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