Merge pull request #4381 from iwahbe/spell-no-word-error

Add word existence checking for +spell/correct
This commit is contained in:
Henrik Lissner 2020-12-08 23:00:51 -05:00 committed by GitHub
commit c45346404a
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -65,7 +65,8 @@
(featurep! :completion helm))) (featurep! :completion helm)))
(call-interactively #'ispell-word) (call-interactively #'ispell-word)
(cl-destructuring-bind (start . end) (cl-destructuring-bind (start . end)
(bounds-of-thing-at-point 'word) (or (bounds-of-thing-at-point 'word)
(user-error "No word at point"))
(let ((word (thing-at-point 'word t)) (let ((word (thing-at-point 'word t))
(orig-pt (point)) (orig-pt (point))
poss ispell-filter) poss ispell-filter)