Emacs-langtool
Emacs-langtool copied to clipboard
How do I correct word at point?
trafficstars
I only see the function langtool-correct-buffer, but I just want to correct the word my cursor is currently hovering over.
Is there something like langtool-correct-word-at-point?
Same question. Please! Anyone care to answer this question?
Like this, maybe?
(defun my/langtool-correct-from-point ()
"Execute interactive correction after `langtool-check', from point"
(interactive)
(let ((ovs (langtool--overlays-region (point) (point-max))))
(if (null ovs)
(message "No error found. %s"
(substitute-command-keys
(concat
"Type \\[langtool-check-done] to finish checking "
"or type \\[langtool-check] to re-check buffer")))
(barf-if-buffer-read-only)
(langtool--correction ovs))))
After consideration, introduce as M-x langtool-correct-at-point .