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." or session. Otherwise, the addition is permanent."
(interactive (interactive
(list (progn (require 'flyspell) (list (progn (require 'flyspell)
(flyspell-get-word)) (car (flyspell-get-word)))
(cond ((equal current-prefix-arg '(16)) (cond ((equal current-prefix-arg '(16))
'session) 'session)
((equal current-prefix-arg '(4)) ((equal current-prefix-arg '(4))