Fix +spell/add-word when using flyspell

``+spell/add-word`` expects `flyspell-get-word` to return as a string
the current word. Instead, it returns a list of the form
`(<word> <start-pos> <end-pos>)`.
This commit is contained in:
Thomas Stenhaug 2020-09-14 13:02:35 +02:00
parent 1456108d5b
commit 90b330bbc5

View File

@ -35,7 +35,7 @@ SCOPE can be `buffer' or `session' to exclude words only from the current buffer
or session. Otherwise, the addition is permanent."
(interactive
(list (progn (require 'flyspell)
(flyspell-get-word))
(car (flyspell-get-word)))
(cond ((equal current-prefix-arg '(16))
'session)
((equal current-prefix-arg '(4))