emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add word existence checking for +spell/correct

Browse source 
`(bounds-of-thing-at-point 'word)` can return `nil`. This checks that it
does not, giving an `user-error` if no word is found.
This commit is contained in:
Ian Wahbe 2020-12-06 19:18:36 +01:00
parent 9137cbaaa4
commit a51be66d30
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
modules/checkers/spell/autoload/+spell-fu.el
View file

@ -64,8 +64,9 @@
(if (not (or (featurep! :completion ivy)
(featurep! :completion helm)))
(call-interactively #'ispell-word)
(cl-destructuring-bind (start . end)
(bounds-of-thing-at-point 'word)
(let ((current-point (bounds-of-thing-at-point 'word)))
(if current-point
(cl-destructuring-bind (start . end) current-point
(let ((word (thing-at-point 'word t))
(orig-pt (point))
poss ispell-filter)
@ -106,7 +107,8 @@
(+spell--correct cmd poss wrd orig-pt start end)
(unless (string-equal wrd word)
(+spell--correct wrd poss word orig-pt start end))))))
(ispell-pdict-save t)))))))
(ispell-pdict-save t)))))
(user-error "No word at point")))))
;;;###autoload (defalias '+spell/add-word #'spell-fu-word-add)
;;;###autoload (defalias '+spell/remove-word #'spell-fu-word-remove)