Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
langtool.elをpopup.elに対応
(defun popup-current-langtool-error ()
(interactive)
(let ((msgs (langtool--current-error-messages)))
(if (null msgs)
(popup-tip "No errors")
(let ((msg (split-string (car msgs) "\n")))
(popup-tip (join "\n" (reverse (nthcdr 2 (reverse msg)))))))))
(global-set-key "\C-ce" 'popup-current-langtool-error)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment