Created
September 12, 2015 11:33
-
-
Save laclefyoshi/9fbe019e6a2f34c8b82c to your computer and use it in GitHub Desktop.
langtool.elをpopup.elに対応
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (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